Viết chương trình nhập 3 số dương a,b,c từ bàn phím. Kiểm tra và in ra màn hình kết quả kiểm ra 3 số đó có thể là độ dài các cạnh của 1 tam giác hay không?
Viết chương trình nhập 3 số dương a,b,c từ bàn phím. Kiểm tra và in ra màn hình kết quả kiểm ra 3 số đó có thể là độ dài các cạnh của 1 tam giác hay không?
Program tamgiac;
uses crt;
var a,b,c:integer;
begin
clrscr;
write(‘a,b,c=’);readln(a,b);
if(a+b>c)and(a+c>b)and(b+c>a)then writeln(‘Day la ba canh cua tam giac’) else writeln(‘Day khong la ba canh cua tam giac’);
readln
end.
program tamgiac;
uses crt;
var a,b,c:integer;
begin
clrscr;
write(‘Nhap so thu nhat: ‘); readln(a);
write(‘Nhap so thu hai : ‘); readln(b);
write(‘Nhap so thu ba : ‘); readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) then
write(‘La do dai ba canh cua tam giac’)
else write(‘Khong la ba canh cua tam giac’);
readln;
end.