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

1

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

2013-10-23T07:36:06+00:00
Var k: integer;
    a: string;
begin
     readln(k);
     a := inttostr(k);
     for k := 1 to length(a) do
         write(a[k] + ' ');
end.