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.
1: tính tổng của \(S=1+\frac{1}{2^2}+\frac{1}{3^2}+\frac{1}{4^2}+...+\frac{1}{100^2}\)
uses crt;
var s:real;
i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+1/(sqr(i));
writeln('tong cua day so la: ',s);
readln;
end.
2: tính tổng \(S=1+\frac{1}{3^2}+\frac{1}{5^2}+\frac{1}{7^2}+...+\frac{1}{n^2}\)
uses crt;
var s:real;
n,i:integer;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=1 then s:=s+1/(sqr(i));
writeln('tong cua day so la: ',s:4:2);
readln;
end.
1:
uses crt;
var a,b,bt:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
bt:=(sqr(a)+sqr(b))/2;
writeln('bieu thuc=',bt:4:2);
readln;
end.
2:
uses crt;
var s,v,t:integer;
begin
clrscr;
write('nhap thoi gian xe chay:'); readln(t);
write('nhap van toc cua xe:'); readln(v);
s:=v*t;
writeln('quang duong xe chay duoc la: ',s:4:2);
readln;
end.
Program i: integer;
s: longint;
Begin
s:=0;
for i:=1 to 99 do s:=s + i*(i+1);
write('S=',s);
readln
end.
uses crt;
var i,s:longint;
begin
clrscr;
s:=0;
for i:=1 to 99 do
s:=s+i*(i+1);
writeln('S=',s);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long s,i;
int main()
{
s=0;
for (i=1; i<=100; i++)
if (i%2==1) s=s+i*i;
cout<<s;
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,dem,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%3==0) t=t+x;
}
cout<<t;
return 0;
}
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;
}
program an_danh;
uses crt;
var kq:real;
i:integer;
begin
clrscr;
kq:= 1;
for i:= 1 to 99 do kq:= kq + (i / (i * (i + 1)));
write('M= ',kq:0:10);
readln
end.
program an_danh;
uses crt;
var kq:real;
i:integer;
begin
clrscr;
kq:= 1;
for i:= 1 to 99 do kq:= kq + (i / (i * (i + 1)));
write('M= ',kq:0:10);
readln
end.