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

Question

Информатика

Каллист

17 июня, 08:07

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

+4

Ответы (1)

Знаете ответ на вопрос?

Маргуша · Answer 1

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.