Question

1)Напишите процедуру в программе Pascal ABC(Паскаль), которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой.
Пример:
1234
1
2
3
4

2)Напишите процедуру, которая выводит на экран запись переданного ей числа в римской системе счисления.
Пример:
2013
MMXIII

Answer 1

Программа в Pascal ABC

procedure example(var n:integer);
var
y:integer;
begin
repeat
y:=n mod 10;
writeln(y);
n:=n div 10;
until n=0;
end;