Ответ:
program Geom;
program Test_nn;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Math;
var
a: array of Extended;
n, i, c: Integer;
x: Extended;
begin
Write ('Размерность массива = ');
ReadLn (n);
SetLength (a, n);
Randomize;
for i := Low (a) to High (a) do begin
a [i] := (Random (2001) - 1000) / 1000;
Write (a [i] :7 :3);
end;
x := 1;
c := 1;
WriteLn;
for i := Low (a) to High (a) do begin
if a [i] > 0 then begin
Write (a [i] :7 :3);
x := x * a [i];
Inc (c);
end;
end;
WriteLn;
WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);
ReadLn;
end.
16 Кбайт = 131072 бит;
16 симв · 40 строк · 8 бит = 19 200;
16 Кб (то есть 131072 бит) ÷ 19 200 = 6,8
В ответе пишем 6 страниц.
Ответ:
int func(const int X) {
if (X <= 3) {
return (X * X - 3 * X + 9);
}
else if (X > 3) {
return 1 / (double)(X * X + 6);
}
}
Объяснение:
I=4кб=4096 байт= 32768 бит
k=4096 символов
формула: I=i*k, отсюда выражаем i=I:k = 32768:4096=8 бит
2^8=256 символов
