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
Function Sum(m: myarray): Integer
Var i, s : integer
sum:=0
For i:=1 To n do
(к уже найденной сумме первых (i-1) элементов прибавляем i-ый элемент)
s:=s+m[i];
sum:=s;
End;
Это все что я помню...
50 МБайт - 1м30с=90с
х МБайт - ? 40с с упак/распак=13с
40-13=27(с - передача упак.док.)
х=50 МБайт * 27 с / 90с =15 МБайт
Ответ: 15 МБайт весит упакованный документ
Минут пять десять двенадцатого минут пять десять