Почему в римской системе счисления используются латинские буквы

👇

Увидеть ответ

Ответ:

Agent1597

19.12.2021

Римская система - непозиционная система счисления. Если бы использовали цифры, просто напросто была бы путанница.

4,6(67 оценок)

Ответ:

Ivangggg

19.12.2021

Римская система счисления является непозиционной системой. В ней для записи чисел используются буквы латинского алфавита. При этом буква I всегда означает единицу, буква - V пять, X - десять, L - пятьдесят, C - сто, D - пятьсот, M - тысячу и т.д. Например, число 264 записывается в виде CCLXIV. При записи чисел в римской системе счисления значением числа является алгебраическая сумма цифр, в него входящих. При этом цифры в записи числа следуют, как правило, в порядке убывания их значений, и не разрешается записывать рядом более трех одинаковых цифр. В том случае, когда за цифрой с большим значением следует цифра с меньшим, ее вклад в значение числа в целом является отрицательным. Типичные примеры, иллюстрирующие общие правила записи чисел в римской система счисления, приведены в таблице.

Таблица 2. Запись чисел в римской системе счисления

III

VII

VIII

XIII

XVIII

XIX

XXII

XXXIV

XXXIX

XCIX

200

438

649

999

1207

CDXXXVIII

DCXLIX

CMXCIX

MCCVII

2045

3555

3678

3900

3999

MMXLV

MMMDLV

MMMDCLXXVIII

MMMCM

MMMCMXCIX

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

4,7(91 оценок)

Открыть все ответы

Ответ:

Аврoра

19.12.2021

1. Современный вариант (так можно писать):

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
var n:=10;
var a:=ArrRandom(n,1,99); Print('A:'); a.Println;
var b:=ArrRandom(n,1,99); Print('B:'); b.Println;
var x:=a.Zip(b,(p,q)->p*q); Print('X:'); x.Println;
Writeln('min(X)=',x.Min)
end.

Тестовое решение:
A: 34 37 41 26 78 10 13 15 59 71
B: 70 49 56 94 79 25 72 54 39 34
X: 2380 1813 2296 2444 6162 250 936 810 2301 2414
min(X)=250

2. "Школьный вариант" (так учат в школе, чтобы жизнь медом не казалась, но может быть, что учителя сами не понимают современные технологии программирования):

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
const
n=10;
var
a,b,x:array[1..n] of integer;
i,min:integer;
begin
Randomize;
Write('A: ');
for i:=1 to n do begin
    a[i]:=Random(99)+1; Write(a[i],' ')
    end;
Writeln;
Write('B: ');
for i:=1 to n do begin
    b[i]:=Random(99)+1; Write(b[i],' ')
    end;
Writeln;
Write('X: ');
min:=100*100; // больше максимального
for i:=1 to n do begin
    x[i]:=a[i]*b[i]; Write(x[i],' ');
    if min>x[i] then min:=x[i]
    end;
Writeln;
Writeln('min(X)=',min)
end.

Тестовое решение:
A: 43 52 75 74 18 57 39 67 44 20
B: 33 16 36 34 65 9 42 51 79 36
X: 1419 832 2700 2516 1170 513 1638 3417 3476 720
min(X)=513

4,4(47 оценок)

Ответ:

mondy358

19.12.2021

Задача №1

//Pascal
var x,y:real;
begin
readln(x,y);
if (x>0) and (y>0) then writeln('I четверть');
if (x<0) and (y>0) then writeln('II четверть');
if (x<0) and (y<0) then writeln('III четверть');
if (x>0) and (y<0) then writeln('VI четверть');
end;

Задача №2

//Pascal
var a:integer;
begin
readln(a);
if a mod 2 =0 then writeln(' Четное')
else writeln(' Нечетное');
if a mod 10 =7 then writeln(' оканчивается на 7')
else writeln(' не оканчивается на 7 ');
if a mod 5 =0 then writeln(' делится на 5 ')
else writeln(' не делится на 5');

end.

4,4(30 оценок)

Это интересно:

Компьютеры-и-электроника

05.11.2022

Хочешь создать свою банду в GTA San Andreas? Просто следуй этим шагам!...

Стиль-и-уход-за-собой

14.02.2023

Контроль волос африканского стиля: советы и инструкции...

Философия-и-религия

22.11.2020

5 способов, как быть ближе к Аллаху: разбираемся в духовном росте...

Здоровье