Question

Перевести римские цифры в арабские(от 1 до 9) паскаль ABC

Answer 1

Ответ:

I = 1; V = 5; X = 10; L = 50; C = 100; D = 500; M = 1000.

Answer 2

Вот паскаль-код для перевода римских цифр от 1 до 9 в арабские числа:

pascalCopy code
program RomanToArabic;
var
  RomanNumeral: string;
  ArabicNumber: integer;

function ConvertRomanToArabic(RomanNumeral: string): integer;
var
  i: integer;
begin
  Result := 0;
  for i := 1 to Length(RomanNumeral) do
  begin
    case RomanNumeral[i] of
      'I':
        Result := Result + 1;
      'V':
        Result := Result + 5;
      'X':
        Result := Result + 10;
    end;
  end;
end;

begin
  RomanNumeral := 'V'; // Здесь можно изменить римскую цифру для конвертации
  ArabicNumber := ConvertRomanToArabic(RomanNumeral);
  WriteLn('Римская цифра ', RomanNumeral, ' равна арабскому числу ', ArabicNumber);
end.

Программа преобразует одну заданную римскую цифру в арабское число. В коде приведен пример для цифры "V" (5). Вы можете изменить значение переменной "RomanNumeral" на любую другую римскую цифру от "I" до "IX" для конвертации в соответствующее арабское число.