Даны стороны треугольника abc определить является ли треугольник равнобедренным.Напишите программу на паскале

1
var a, b, c: integer; begin writeln ('введите а б с'); readln (a, b, c); if a=b than wtiteln('абс равнобедренный'); else begin if b=c than writeln ('абс равнобедренный ' ); else begin if a=c than writeln ('абс равнобедренный ' ); else writeln ('абс не равнобедренный'); end; end; end.

Ответы и объяснения

2014-03-02T05:39:23+00:00
Var a,b,c:integer;
begin
read(a,b,c);
if (a=b) or (b=c) or (a=c) then writeln('Треугольник равнобедренный') else
writeln('Треугольник не равнобедренный');
end.