• Составить программу преобразования натуральных числе, записанных в римской нумерации, в десятичную систему счисления. На паскале.

Ответы 1

  • PascalABC.NET 3.4begin  var m:=ReadInteger('Введите натуральное число не более 3999:');  if not m.Between(1,3999) then Writeln('Недопустимое значение')  else  begin    Write(m,' = ');    var ar:array of string:=        ('M','CM','D','CD','C','XC','L','XL','X','IX','V','IV','I');    var aa:=Arr(1000,900,500,400,100,90,50,40,10,9,5,4,1);    var n:=0;    var s:string:='';    while m>0 do    begin      while aa[n]<=m do      begin        s+=ar[n];        m-=aa[n];      end;      n+=1    end;    Writeln(s)  endend.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years