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

Question

Информатика

Ионична

25 апреля, 15:58

Заданы стороны треугольника 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.