Question

 Viết chương trình xét xem một tam giác đều hay không khi không biết ba cạnh của tam giác đó.

help gấp chiều mai ktra rùi

Answer 1

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then

begin

if (a=b) and (b=c) then writeln('Day la tam giac deu')

else writeln('Day la tam giac khong deu');

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Answer 2

help