Ответ:
Римляне использовали непозиционную римскую систему счисления.
Двоичная система, лежащая в основе компьютерной логики, является позиционной.
<span><span>Program p_2;
Var
z, a : Real; m : integer;
Function Step (n: integer; x:real): real;
Var
i: integer; y: Real;
Begin
i:=1; y:=1;
While i<=n do
Begin
y:=y*x; I:=I+1;
End;
Step:=y;
End;</span><span> {Конец функции}</span><span>
Begin
Write(‘Введи степень и возводимое число’); Readln(Z,M);
F:=Step(m,z);
Writeln(z, ‘ в степени’, m, ‘=’,f);
End.</span>
</span>
4^k < m.
представим m как 4^log(4)m. (Это выражение равно m (по основному логарифмическому тождеству), 4 - основание логарифма).
4^k < 4^log(4)m.
k < log(4)m.
Т.е по идее получается, что наибольшее целое k = log(4)m с отбрасывание дробной части.
Сам код:
var m:integer; k:real;
begin
write('m = ');
readln(m);
k:=ln(m)/ln(4); {вычисляем логарифм m по основанию 4}
write('k = ',int(k)); {выводим целую часть}
end.