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