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