Viết chương trình nhập độ dài a,b,c. Kiểm tra xem đây có phải là độ dài ba cạnh của một tam giác hay không? (a,b,c được nhập từ bàn phím)
Viết chương trình nhập độ dài a,b,c. Kiểm tra xem đây có phải là độ dài ba cạnh của một tam giác hay không? (a,b,c được nhập từ bàn phím)
program ct;
uses crt;
var a,b,c:integer;
begin clrscr;
write(‘Nhap do dai ba canh cua tam giac: ‘); readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then write(‘Day la do dai ba canh tam giac’);
else write(‘Day ko la do dai ba canh tam giac’);
readln;
end.
Học tốt!
program canhtamgiac;
uses crt;
var a,b,c : integer;
begin
clrscr;
write(nhap so a= ‘);readln(a);
write(nhap so b= ‘);readln(b);
if a+b>c and a+c>b andb+c>a then
write(‘a,b,c la canh tam giac’) esle
write(‘a,b,c khong phai canh tam giac’);
readln;
end.