Var a,b,c:real; begin write('Введите стороны треугольника а,b и c: '); readln(a,b,c); if (a=b) and(b=c) then writeln('Треугольник равносторонний') else writeln('Треугольник неравносторонний'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
