Function power (a:real; n:longint):real;
var
i:longint;
p:real;
begin
if n=0 then power:=0
else begin
p:=a;
for i:=2 to n do p:=p*a;
power:=p
end
end;
var
a:real;
n:integer;
begin
Write('Введите основание и показатель степени: ');
Read(a,n);
Writeln('Результат: ',power(a,n))
end.
<u>Пример</u>
Введите основание и показатель степени: 13.64 6
Результат: 6440005.25769131
К =640*350
N=512
I-?
Решение :
N=2^i=2^9
I=K*i=512*9=4608 бит
Чтобы перевести в байты нам нужно 4608:8=576
Чтобы перевести в Кбайты нам нужно 576/1024=0,56 Кбайт
ну как то так......
Желаю удачи!
Да, конечно если на диске есть вирусы.
513/16=32 (1 остаток)
32/16=2 (0 остаток)
ответ 201
600/16=37 (8 остаток)
37/16=2 (5 остаток)
ответ 258
2010/16=125 (10 остаток, 10 в шестнадцатеричной системе это А,
то есть А остаток)
125/16=7 (13 остаток, 13 в шестнадцатеричной системе это D,
то есть D остаток)
ответ 7DA