ответ: Решение на pascale
Объяснение:
1)var
N: integer;
begin
readln(N);
while N > 0 do
writeln(N mod 10);
N := N div 10
end;
end.
2)var
write(N mod 10);