Напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с последней (PascalABC)

2

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

2014-03-05T18:53:01+04:00
Begin
  var a: integer;
  readln(a);
  foreach c: char in a.ToString().Reverse() do writeln(c);
end.
2014-03-05T18:54:03+04:00
Procedure vivod(var n:integer);
var
   x:integer;
begin
   repeat
      x:=n mod 10;
      writeln(x);
      n:=n div 10;
  until n=0;
end;