Определить и вывести на экран по отдельности цифры целого числа N

Question

Информатика

Мика

28 марта, 02:45

Определить и вывести на экран по отдельности цифры целого числа N

+3

Ответы (1)

Знаете ответ?

Евстигней · Answer 1

var

i, num:integer;

num_s:string;

begin

write ('vvedite celoe chislo: ') ;

read (num) ;

num_s:=IntToStr (num) ;

for i:=1 to num_s. length do

write (' ', num_s[i]) ;

end.