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;