<h3>PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a := a[::2].Sorted.Interleave(a[1::2]).ToArray;
a.Println
end.
У нас есть три числа: 7, 11, 2001.
В римской системе счисления использовались такие цифры:
I - 1
V - 5
X - 10
L - 50
C - 100
D - 500
M - 1000
В римской системе принцип записи числа - повторение простых цифр, причем записываются в начале большие, после меньшие, значение оного является сумой всех записаных:
I - значит 1
II - значит 1 + 1 = 2.
VI - значит 5 + 1 = 6
Так же есть правило, что если меньшая цифра стоит перед большей, то из большой вычитаем меньшую, это необходимо для избежания большого кол-ва повторений. Пример:
IIII = 1 + 1 + 1 + 1 = 4
IV = (-1) + 5 = 5 - 1 = 4
Второй вариант записи короче, по этому его и используют.
Теперь необходимо использовать правильную их комбинацию для записи чисел.
7 = VII
11 = XI
2001 = MMI
Полный ответ записаный в строку имеет вид:
VII.XI.MMI
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" - тут и в моем профиле. Яркого вам настроения!
Var a,b: integer;
<span>begin
</span><span> write('a = '); readln(a);
</span><span> write('b = '); readln(b);
</span><span> a:=a+b;
</span><span> b:=a-b;
</span><span> a:=a-b;
</span><span> writeln('a = ',a,' b = ',b);
</span><span>end.
</span>a = 15
<span>b = 20
</span><span>a = 20 b = 15
</span>
PascalABC.NET
-----------------------------
var
a: array[1..10000] of integer;
kz,maxp,n,i,j: integer;
begin
i:=0;
maxp:=integer.MinValue;
writeln ('Готов к приему чисел');
repeat
i:=i+1;
readln (a[i]);
until a[i]=0;
n:=i-1;
readln (kz);
for i:=1 to n-1 do
for j:=2 to n do
if maxp<(a[i]*a[j]) then maxp:=(a[i]*a[j]);
writeln ('Получено ',n,' чисел');
writeln;
writeln ('Полученное контрольное значение: ',kz);
writeln;
writeln ('Вычисленное контрольное значение: ',maxp);
writeln;
if kz=maxp
then writeln ('Контроль пройден')
else writeln ('Контроль не пройден');
end.
--------------------------------------
Результаты:
1)
Готов к приему чисел
1 2 3 4 5 0 20
Получено 5 чисел
Полученное контрольное значение: 20
Вычисленное контрольное значение: 20
Контроль пройден
2)
Готов к приему чисел
1 2 3 4 5 6 0 20
Получено 6 чисел
Полученное контрольное значение: 20
Вычисленное контрольное значение: 30
Контроль не пройден
