Var a:integer; begin repeat write('Введите число: '); read(a); if a>0 then writeln('Положительное число!'); until a<0; end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
