Viết chương trình kiểm tra 3 số nguyên được nhập từ bàn phím có thể lập thành 3 cạnh của 1 tam giác hay không?
Viết chương trình kiểm tra 3 số nguyên được nhập từ bàn phím có thể lập thành 3 cạnh của 1 tam giác hay không?
Program Tra_loi;
uses crt;
Var a, b, c: real;
Begin
Clrscr;
write(‘nhap 3 so a, b, c’); readln(a,b,c);
if (a+b>c) and (b+c>a) and (c+a>b) then writeln(‘a,b,c la do dai 3 canh 1 tam giac’) else writeln (‘a,b,c khong la do dai 3canh 1 tam giac’) ;
readln
end.
program bt;
uses crt;
var a,b,c:integer;
begin
write(‘Nhap 3 canh: ‘); readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then write(‘La do dai 3 canh cua tam giac’)
else write(‘Khong la do dai 3 canh cua tam giac’);
readln;
end.
xin hay nhất cho nhóm
chúc bạn thi học kì đạt được điểm cao