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

Question

Пётр

1 мая, 19:36

+1

Ответы (2)

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

Маняша · Answer 1

Procedure vivod (var n:integer) ;

var

x:integer;

begin

repeat

x:=n mod 10;

writeln (x) ;

n:=n div 10;

until n=0;

end;

Флориана · Answer 2

Begin

var a: integer;

readln (a) ;

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

end.