Question

написать процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первого

Answer 1

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;