Question

pascal 如何将任意位数保存下来 例 i：1234 输出1，2，3，4 例 i: 12345 输出1，2，3，4，5 例 i:2343545

是任意位数
例 i：1234
输出1，2，3，4
例 i: 12345
输出1，2，3，4，5
例 i:2343545
输出2，3，4，3，5，4，5

Answer 1

var x:longint;

procedure abc(x:longint);

begin

  if x>9 then abc(x div 10);

  if x>9 then write(',');

  write(x mod 10);

end;

begin

  readln(x);

  abc(x);

  writeln;

end.