19.12.2010, 21:26
общий
это ответ
Здравствуйте, Артем!
Код написан для FPC так как вы не указали язык!
Если есть какие замечания пишите! Удачи разобраться!!!
Приложение:
program p181461;
var n:integer;
rez:real;
begin
writeln('Введите натуральное n');
write('n=');
readln(n);
rez:=1;
for i:=1 to n do
begin
rez:=(1+1/sqr(i))*rez;
end;
write('результат =',rez); {вывожу в стандартном выводе extended без форматирования числа}
readln;
readln;
end.