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

Question

Информатика

Евтропия

12 июля, 01:01

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

+5

Ответы (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.