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

Помогите пожалуйста, это в Паскале нужно сделать
Определитель,является ли треугольник со сторонами а,b,c равносторонним Заранее спасибо

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

Var a, b, c: real;
begin
write(Введите a, b, c>>);
read(a, b, c);
if (a=b) and (b=c) then writeln(Треугольники равносторонние)
else writeln(Треугольники не равносторонние);
end.