Помогите пожалуйста, это в Паскале нужно сделать Определитель,является ли треугольник со сторонами а,b,c равносторонним Заранее спасибо
Answers & Comments
therealcf2014
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.
Answers & Comments
begin
write('Введите a, b, c>>');
read(a, b, c);
if (a=b) and (b=c) then writeln('Треугольники равносторонние')
else writeln('Треугольники не равносторонние');
end.