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