Question

Даны стороны треугольника, определить его вид(равнобедренный, равносторонний, обычный) Paskal ABC

Answer 1

Программа большая,но правильная

Answer 2

Var
a,b,c:real;
begin
writeln('введите a,b,c');
readln(a,b,c);
if (a>0) and (b>0) and (c>0) then begin
if (a=c) and (b=c) and (a=b) then
writeln('равносторонний');
If (a=b) and (b<>c) then
writeln('равнобедренный');
If (b=c) and (b<>a) then
writeln('равнобедренный');
If (c=b) and (c<>a) then
writeln('равнобедренный');
if (a<>b) and (c<>b) and (a<>c) then
writeln('произвольный');
end;
if (a<0) or (b<0) or (c<0) then writeln('такого треугольника нет');
end.