Viết chương trình nhập vào từ bàn phím 3 cạnh của 1 tam giác và kiểm tra xem 3số đó có phải lad 3 cạnh của tâm giác ko?
Viết chương trình nhập vào từ bàn phím 3 cạnh của 1 tam giác và kiểm tra xem 3số đó có phải lad 3 cạnh của tâm giác ko?
var a, b, c: real;
Begin
Write(‘nhap ba canh cua tam giac: ‘);
Readln(a, b, c);
If (a+b>c) and (b+c>a) and (c+a>b)
Then write(‘la tam giac’)
Else
Write(‘khong la tam giac’);
Readln
End.
program kiem_tra;
uses crt;
var a,b,c:integer;
begin
clrscr;
write(‘Nhap so do canh thu nhat: ‘); readln(a);
write(‘Nhap so do canh thu hai: ‘); readln(b);
write(‘Nhap so do canh thu ba: ‘); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then write(‘Phai’)
else write(‘Khong phai’);
readln;
end.