Я так понимаю, нужно число страниц найти.
9408 / (log2(256) / 8 * 28 * 48) = 7 страниц.
9 90.............,,,,,,,,,,,,,
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
Подробных требований нет, поэтому один из простых вариантов такой:
<FORM>
Число:
<input type="text" size="10" name=number>
<P>
<input type="button" value="Проверить"
onclick="if (number.value % 2)
ans.value=number.value+'-нечетное';
else ans.value=number.value+'-четное'"">
<input type="text" size="10" name=ans>
<P>
<input type="reset" value="Очистить">
</FORM>
Текст набрать в блокноте и сохранить с расширением html. Затем открыть в браузере.