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

Question

Пётр

30 мая, 00:38

+2

Ответы (2)

Знаете ответ?

Флориана · Answer 1

Begin

var a: integer;

readln (a) ;

foreach c: char in a. ToString (). Reverse () do writeln (c) ;

end.

Маняша · Answer 2

Procedure vivod (var n:integer) ;

var

x:integer;

begin

repeat

x:=n mod 10;

writeln (x) ;

n:=n div 10;

until n=0;

end;