Дано число, вывести символы...

[Tiny]

Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке слева на право)

никак мне не решить эту задачу, может кто нибудь знает как?

[Euforia_PZAS09_1]

на каком языке нужно?

[Tiny]

паскаль
в делфи

[p51x]

IntToStr и простой цикл по массиву символов.

[fenix-elite]

в pascale - val(s,num,code);
где s -string
num,code - integer;

[Himka]

Как понял условие, так и написал:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
 N: integer;
 Y: integer;
 X: byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
 repeat
  write('Chislo: ');
  readln(N);
 until N>0;
 writeln('Simvoly chisla: ');
 while N>=10 do
 begin
  Y:=1;
  while (N div Y)>=10 do
   Y:=Y*10;
  X:=N div Y;
  write(chr(X+48), ' ');
  N:=N mod Y;
 end;
 write(chr(N+48));
 writeln;
 readln;
end.