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
Ответ:или 1) принтер или 2) внешняя память компьютера
1КБайт = 8000Бит
2 минуты = 120 секунд
Значит, 3750КБайт = 30000000Бит
Значит скорость соединения была:
30000000:120 = 250000Бит/с
Изучают англ.язык 25-18=7 человек
Французский язык 27-18=9 человек
Всего в классе 7+9+18=34 человека.