Ответ: Благодаря тому, что древнеперсидская клинопись относительно проста, а персидский язык клинописных памятников был известен, персидская версия знаменитой Бехистунской надписи смогла стать исходным пунктом расшифровки более древних и более сложных клинописных систем Как уже было отмечено, Г. Гротефенд, расшифровавший в 1802 г. древнеперсидскую клинопись, привлек две надписи из Персеполя (надписи Дария I и Ксеркса I), известные в то время в Европе по прорисовкам, сделанным К. Нибуром. Впоследствии персидский текст трехязычной Бехистунской надписи Дария I помог Г. Раулинсону и другим расшифровке вавилонской клинописи.— Прим. ред..
Объяснение:
Sub z()
n = InputBox("Введите троичное число")
Do
d = d + (n Mod 10) * 3 ^ i
i = i + 1
n = n \ 10
Loop Until n = 0
MsgBox ("Десятичное: " & d & "; восьмеричное: " & Oct(d))
d = 0
i = 0
n = InputBox("Введите восьмеричное число")
Do
d = d + (n Mod 10) * 8 ^ i
i = i + 1
n = n \ 10
Loop Until n = 0
x = d
Do
t = t & (x Mod 3)
x = x \ 3
Loop Until x = 0
t = StrReverse(t)
MsgBox ("Десятичное: " & d & "; троичное: " & t)
End Sub
Var m,m2,m3: integer;
begin
readln(m);
m2:=round(m-0.45*m);
m3:=m+m2;
writeln('1: ',m,', 2: ',m2,', 3: ',m3,', вместе: ',m+m2+m3);
end.
Пример:
20
1: 20, 2: 11, 3: 31, вместе: 62
Вот, в Excel удобнее, самому не надо проверять каждую строку :)