Question

Вывести на экран все цифры числа k. (Блок-схема, решение самой задачи) Срочно надо, спасайте!

Answer 1

var k: integer;
    a: string;
begin
     readln(k);
     a := inttostr(k);
     for k := 1 to length(a) do
         write(a[k] + ' ');
end.