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