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

Question

Мелана

3 марта, 17:28

+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.