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

Question

Информатика

Ермилий

24 августа, 23:11

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

+1

Ответы (1)

Знаете ответ на вопрос?

Лианка · 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;