Решение приведено в файле приложенном ниже!!!!программа тестировалась и работает
Объяснение:
в 128 символьном алфавите 1 символ равен 7 битам
1120/6= 160
Можно использовать формулу:
=СТЕПЕНЬ(A1*B1*C1;1/3)-ОТБР(СТЕПЕНЬ(A1*B1*C1;1/3))
Var a0, a1, a2, a3, a: longint;
Begin
readln(a3, a2, a1, a0);
a:=a3*1000+a2*100+a1*10+a0;
write(a)
End.
Пример:
1 5 9 8
1598