var a,b,c,d: integer; begin write('длины сторон a,b,c,d через пробел: '); readln(a,b,c,d); if (a=b) and (b=c) and (c=d) then writeln('квадрат') else if ((a=b) and (c=d)) or ((a=c) and (b=d)) or ((a=d) and (b=c)) then writeln('прямоугольник') else writeln('стороны не пересекаются под прямым углом'); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
