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

1. Для того чтобы вывести все цифры переданного числа в столбик, можно воспользоваться следующим кодом:

pascal
Копировать код
procedure PrintDigits(num: integer);
begin
  while num > 0 do
  begin
    WriteLn(num mod 10);  // Выводим последнюю цифру числа
    num := num div 10;    // Убираем последнюю цифру
  end;
end;

Пример работы процедуры:

pascal
Копировать код
PrintDigits(1234);

Этот код будет выводить цифры числа по одной в столбик, начиная с последней. Если нужно выводить цифры в том порядке, в котором они идут в числе, можно предварительно сохранить их в массив или строку, а затем вывести.

2. Для вывода числа в римской системе счисления, можно использовать следующую процедуру:

pascal
Копировать код
procedure PrintRoman(num: integer);
const
  romanNumerals: array[1..13] of string = ('I', 'II', 'III', 'IV', 'V', 'VI', 'VII', 'VIII', 'IX', 'X', 'XX', 'XXX', 'XL', 'L', 'LX', 'LXX', 'LXXX', 'XC', 'C', 'CC', 'CCC', 'CD', 'D', 'DC', 'DCC', 'DCCC', 'M');
  values: array[1..13] of integer = (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);
var
  i: integer;
begin
  for i := 13 downto 1 do
  begin
    while num >= values[i] do
    begin
      Write(romanNumerals[i]);
      num := num - values[i];
    end;
  end;
end;

Пример работы процедуры:

pascal
Копировать код
PrintRoman(2013);

Этот код будет выводить число в римской записи. Например, для числа 2013 вывод будет следующим: MMXIII.