Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Написать программу определения, является ли треугольник со сторонами a,b,c, равнобедреним

Ответ оставил Гость

program z1;
var a,b,c:integer;
begin
writeln(Введите стороны треугольника);
readln(a,b,c);
if (a=b)or(a=c)or(b=c) then writeln(треугольник равнобедренный) else writeln(треугольник не равнобедренный);
end.