Program Ba_canh_tam_giac;
Uses CRT;
Var a , b , c : real;
Begin
Clrscr;
Write(nhap ba so a, b va c: ‘); Readln(a,b,c);
If (a+b<c) and ( b+c<a) and (c+a>b) then
Writeln(‘ a, b va c la 3 canh cua tam giac! ‘)
Else writeln(‘a, b va c khong la 3 canh cua tam giac! ‘);
Readlnl;
End.
program tamgiac;
uses crt;
var a,b,c:integer;
begin
Write('Nhap canh a:');readln(a);
Write('Nhap canh b:');readln(b);
Write('Nhap canh c:');readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) then write('a,b,c la ba canh cua tam giac') else write('a,b,c k phai la ba canh cua tam giac');
readln;
end.
Chúc bạn học tốt ^^
Bài của bạn Văn Lương Ngọc Duyên là đúng r đó các bạn ơi