Home
О нас
Products
Services
Регистрация
Войти
Поиск
Artemi43
@Artemi43
October 2021
2
18
Report
как выполнить данную операцию на паскале? вычислить (1+(1/(1^2))) *(1+(1/(2^2)))* (1+(1/(3^2))) ...*(1+(1/(n^2)))
если кому легче то вот как оно же выглядит на паскале (1+(1/(1*1))) *(1+(1/(2*2)))* (1+(1/(3*3))) ...*(1+(1/(n*n)))
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
Answers & Comments
petyaGavrikov
Verified answer
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 votes
Thanks 0
Artemi43
Спасибо огромное))
m0nclous
Verified answer
Var
n, i :integer;
resault :real;
Begin
write('n = '); readln(n);
resault := 1;
for i:= 1 to n do
resault *= 1 + (1 / sqr(i) );
Writeln('Результат: ', resault)
End
.
2 votes
Thanks 2
×
Report "(n*n)))..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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
Verified answer
Varn, i :integer;
resault :real;
Begin
write('n = '); readln(n);
resault := 1;
for i:= 1 to n do
resault *= 1 + (1 / sqr(i) );
Writeln('Результат: ', resault)
End.