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

Question

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

Answer 1

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
procedure P(n:integer);
begin
  n.ToString.Print(NewLine)
end;

begin
  P(ReadInteger('n='))
end.

Тестовое решение:
n= 123407
1
2
3
4
0
7

Comments

Спасибо, а с Питоном работаете? Эту же программу нужно ещё и в питоне. Могу задать отдельный вопрос для этого. Только напишите

---

Питон недолюбливаю. Все то, что он умеет, умеет и эта версия Паскаля, только зачастую короче)) Поэтому без крайней необходимости стараюсь на Питоне не писать.