Заданы стороны треугольника a b c. Определить, является ли он равносторонним. Написать программу на языке паскаль

Question

Информатика

Ариадна

22 июля, 19:46

Заданы стороны треугольника a b c. Определить, является ли он равносторонним. Написать программу на языке паскаль

+1

Ответы (1)

Знаете ответ?

Евфимий · Answer 1

Var a, b, c:integer;

begin

writeln ('Введите стороны треугольника: ') ;

readln (a, b, c) ;

if (a = b) and (b = c) then

writeln ('Равносторонний') ;

else

writeln ('Неравносторонний') ;

readln

end.