Напишите развёрнутую запись числа, определите количественное значение римских чисел, переведите число из десятичной системы в римскую систему счисления. и объясните! ! а)mxlvii б)cccxvii в)dxxv г)xliv д)8523 е)125 ж)52 з)2016
236
267
Ответы на вопрос:
var a:integer;
begin
read (a);
if a>0 then
a:=a+1;
if a<0 then
a:=a-2;
if a=0 then
a:=10;
write(a);
end.
Популярно: Информатика
-
sofitit041025.08.2022 14:15
-
helenkarchevskp08ll511.03.2023 06:52
-
MaShall561913.03.2023 01:24
-
GGNOOB77717.02.2021 18:40
-
Confident2310.04.2023 04:12
-
PolinaZinoviva13.03.2021 12:07
-
nikitazaharov2812.05.2022 21:50
-
Redimer26.01.2021 21:15
-
egorhoyrovegiror24.06.2020 19:08
-
katenkafialkaowy2yf08.11.2021 14:48