Var a:integer; begin readln(a); while (a<=1000) do a:=a 10; writeln(a); end.
Пример ввода: 567 Пример вывода: 1007
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
