procedure Number(number:integer); var len,i :integer; str :string ; begin str := intToStr(number); len := length(str); for i:= 1 to len do writeln(str[i]); end;
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
