В нэте есть я это тоже позавчера делал)
Для заполнения значений Y:
в ячейку B4 записать значение 1,5;
выделить диапазон B3:B4;
используя маркер автозаполнения протянуть на вниз на нужное число строк.
Для заполнения значений Z:
в ячейку C4 записать значение -0.1;
выделить диапазон C3:C4;
используя маркер автозаполнения протянуть на вниз на нужное число строк.
<span>"вознесся выше он главою непокорной Александрийского столба" -58 симв.
58 * 16 = </span>928 бит / 8 = 116 байт.
4. 16*30*32*16 = 245760 бит / 8 = 30720 байт.
5. 16*50*64*16 = 819200 бит / 8 = 102400 байт.
6. 14 * 36 * 64 * 2 байт = 64512 байт
Var n,i:integer;
p:real;
begin
write('n = ');
readln(n);
p:=1;
for i:=1 to n do p:=p*(1+1/(i*i));
writeln('p = ',p);
end.
Пример:
n = 5
p = 3.06944444444444