var
a,b,c:integer;
begin
readln(a);readln(b);readln(c);
if (a>0) and (b>0) and (c>0) and (a>b+c) and (b>a+c) and (c>a+b)
then write(a,b,c,'la ba canh cua tam giac);
readln
end.
var
a,b,c:integer;
begin
readln(a);readln(b);readln(c);
if (a>0) and (b>0) and (c>0) and (a>b+c) and (b>a+c) and (c>a+b)
then write(a,b,c,'la ba canh cua tam giac);
readln
end.
Viết phưong trình nhập từ bản phím. Kiểm tra số đó có chia hết cho 3 và 5 không
lập trình nhập vào từ bàn phím số nguyên dương n tính và in ra màng hình tổng các số chẳn từ 1 đến n
Viết chương trình nhập vào một số nguyên x. Tính và đưa ra màn hình giá trị y = ∛x + √x + 1. *
Câu trả lời của bạn
viết chương trình nhập vào từ bàn phím 2 số nguyên a,b đưa ra màn hình giá trị lớn nhất trong chúng
Bài 1 viết chư ơng trình pascal nhập vào 2 số nguyên m và n đưa ra màn hình tổng số chia hết cho 3 và 5 từ m đến N
Viết chương trình a,Nhập vào một xâu kí tự b,đếm và in ra màn hình số kí tự là chữ cái(chữ hoa) có trong xâu