напишите программу, которая печатает все цифры заданного числа по одной в каждой строке начиная с последней цифры. в качестве входных данных допускается ваодить чтсла от 0 до 2 000 000 000
Ответы
Ответ дал:
0
var
n: longint;
begin
readln(n);
while n > 0 do
begin
writeln(n mod 10);
n := n div 10;
end;
end.
n: longint;
begin
readln(n);
while n > 0 do
begin
writeln(n mod 10);
n := n div 10;
end;
end.
Похожие вопросы
2 года назад
2 года назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад