Bài 3. Dưới đây là chương trình nhập ba số dương a, b, c từ bàn phím và kiểm tra xem ba số đó có thể là độ dài các cạnh của một tam giác hay không.
2 câu trả lời
program tam_giac;
uses crt;
var a, b, c : integer;
begin
clrscr;
write('nhap do dai canh a :');readln(a);
write('nhap do dai canh b :');readln(b);
write('nhap do dai canh c :');readln(c);
if (a + b > c) and (a + c > b) and (b + c > a) then
writeln(a:3, b:3, c:3,' la do dai ba canh tam giac')
else writeln(a:3, b:3, c:3,' khong la do dai ba canh tam giac');
readln
end.
Program baitap;
Uses crt;
Var a,b,c:real;
Begin
Clrscr;
Write('Nhap lan luot 3 canh tam giac:');
Readln(a,b,c);
If (a+b>c and a+c>b and b+c>a) then writeln('Ba canh la canh cua mot tam giac')
Else writeln('Ba canh khong la canh cua mot tam giac');
Readln
End.