Question

Задача срочно!!! Вводиться число від 1 до 20. Записати його римськими цифрами. Це за програмою Pascal та оператора Case.

Answer 1

####################

Answer 2

Звісно! Нижче наведений код програми на Pascal, який зчитує число від 1 до 20 та перетворює його на римські цифри з використанням оператора Case:

pascalCopy code
program RomanNumerals;

var
  number: integer;

procedure ConvertToRoman(num: integer);
var
  roman: string;
begin
  roman := '';
  case num of
    1: roman := 'I';
    2: roman := 'II';
    3: roman := 'III';
    4: roman := 'IV';
    5: roman := 'V';
    6: roman := 'VI';
    7: roman := 'VII';
    8: roman := 'VIII';
    9: roman := 'IX';
    10: roman := 'X';
    11: roman := 'XI';
    12: roman := 'XII';
    13: roman := 'XIII';
    14: roman := 'XIV';
    15: roman := 'XV';
    16: roman := 'XVI';
    17: roman := 'XVII';
    18: roman := 'XVIII';
    19: roman := 'XIX';
    20: roman := 'XX';
    else
      writeln('Невірне число. Введіть число від 1 до 20.');
      exit;
  end;
  writeln('Римські цифри для числа ', num, ' - ', roman);
end;

begin
  writeln('Введіть число від 1 до 20:');
  readln(number);
  ConvertToRoman(number);
end.

Ви можете скопіювати цей код у своє середовище для розробки на Pascal та ввести число від 1 до 20 для його перетворення на римські цифри. Наприклад, якщо введете число 5, програма виведе Римські цифри для числа 5 - V.