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

1

Ответы и объяснения

2014-04-07T23:14:18+04:00

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.