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

Question

Информатика

Маря

2 сентября, 14:56

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

+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;