Уровень B. Напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой.
Ответы
Ответ дал:
0
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
procedure B_Level(n:integer);
begin
n.ToString.Println(NewLine)
end;
begin
B_Level(ReadInteger('n=')) // TEST
end.
Тестовое решение:
n= 142352
1
4
2
3
5
2
procedure B_Level(n:integer);
begin
n.ToString.Println(NewLine)
end;
begin
B_Level(ReadInteger('n=')) // TEST
end.
Тестовое решение:
n= 142352
1
4
2
3
5
2
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад