Question

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

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.