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 mot tam giac!')
ELSE writeln('a, b, c khong la 3 canh cua 1 tam giac!');
Readln
END.
Download: http://www.mediafire.com/?1mkcea1unrtckzr
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 mot tam giac!')
ELSE writeln('a, b, c khong la 3 canh cua 1 tam giac!');
Readln
END.
Download: http://www.mediafire.com/?1mkcea1unrtckzr