Viết chương trình Pascal tính giá trị của biểu thức sau:
(1 + 1/12) (1 + 1/22) ... (1 + 1/n2)
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
11 tháng 12 2021
uses crt;
var x:integer;
begin
clrscr;
readln(x);
writeln(x*x+x+1);
readln;
end.
KV
8 tháng 2 2023
Câu 1:
var i,n:integer;
s:longint;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do
s:=s+(i*10+2);
write('S = ',s);
readln;
end.
Câu 2:
var i,n:integer;
s:real;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do s:=s+1/n;
write('tong la ',s:10:2);
readln;
end.
NA
1
15 tháng 11 2021
uses crt;
begin
clrscr;
writeln(10+4*sqr(15-10)/6+4);
readln;
end.
31 tháng 12 2021
2:
#include <bits/stdc++.h>
using namespace std;
double s;
int n,i;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
s=s+(i*1.0)/((i+1)*1.0);
cout<<fixed<<setprecision(2)<<s;
return 0;
}
3 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
int n,i;
double s;
int main()
{
cin>>n;
s=1;
for (i=2; i<=n; i++)
{
if (i%2==0) s=s+1/(i*1.0);
else s=s-1/(i*1.0);
}
cout<<fixed<<setprecison(2)<<s;
return 0;
}
18 tháng 10 2021
Bài 1:
-Kiểu dữ liệu phù hợp là kiểu số thực (real)
Bài 2:
a) a*x*x*x+b*x*x+c*x+d
b) 1/(1+x)*(1+x)-2/(x*x+1)
Bài 3: (Lười quá, nhường bạn khác nhé :D)
26 tháng 10 2021
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(1/sqr(a)+1/sqr(b):4:2);
readln;
end.
Lời giải :
program hotrotinhoc ;
var i,n : integer ;
A: real ;
begin
write('nhap gia tri n='); readln(n);
A:=1;
for i:=1 to n do
A:=A*(1+1/(i*i));
write('Ket qua la',A);
Readln
end.
var i,n:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+(1/(i*i));
write(s);
readln;
end.