Question

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

Пример:

1234

1

2

3

4

 

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

Пример:

2013

MMXIII

Answer 1

Procedure Proc1(n: Int64);
Var
   s: String;
   i: Integer;
Begin
   Str(n, s); 
   For i := 1 to Length(s) do Writeln(s[i]);
End;

Вторая в файле:

31fe493ca3d9b04bec088e006bdaf6b2.pas