uses crt;
var a,b,c: real;
begin
clrscr;
write('Nhap 3 so a, b, c: ');readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then
begin
write('3 canh vua nhap la tam giac');
if (a=b)or(b=c)or(a=c) then
begin
if(a=b)and(b=c) then
write(' deu')
else
write(' can');
end;
if (a*a=b*b+c*c)or(b*b=a*a+c*c)or(c*c=a*a+b*b) then
write(' vuong');
end
else
write('3 canh vua nhap ko phai la tam giac');
readln;
Lời giải :
B1: nhập 3 số dương a,b,c
B2: nếu a+b <= c, chuyển đến b6
B3: nếu a+c <= b, chuyển đến b6
B4: nếu b+c <= a, chuyển đến b6
B5: cho kết quả a,b,c là 3 cạnh của tam giác
B6: in ra kết qua và kết thúc thuật toán