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.
uses crt;
var s:real;
a:integer;
begin
clrscr;
a:=10;
while a<=100 do
begin
s:=s+a/(a+1);
inc(a);
end;
writeln('S=',s:4:2);
readln;
end.
uses crt;
var s:real;
i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+1/i;
writeln('tong la: ',s:4:2);
readln;
end.
uses crt;
var s:real;
i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+1/i;
writeln('tong la: ',s:4:2);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long s1,s2,s3,s4,i;
int main()
{
s1=0;
for (i=1; i<=100; i++) s1=s1+i*i;
s2=0;
for (i=1; i<=100; i++) if (i%2==1) s2+=i;
s3=0;
for (i=1; i<=100; i++)
{
if (i%2==1) s3+=i*i;
else s3-=i*i;
}
s4=0;
for (i=1; i<=100; i++)
{
if (i%2==1) s4+=i;
else s4-=i;
}
cout<<s1<<" "<<s2<<" "<<s3<<" "<<s4;
return 0;
}
b)
program hotrotinhoc;
var s: real;
i,n: byte;
function t(x: byte): longint;
var j: byte;
t1: longint;
begin
t1:=1;
for j:=1 to x do
t1:=t1*j;
t1:=t;
end;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/t(i);
write(s:1:2);
readln
end.
c) Đề em ghi sai rồi thế này với đúng :
\(T=1+\frac{2}{2^2}+\frac{3}{3^2}+\frac{4}{4^2}+...+\frac{n}{n^2}\)
program hotrotinhoc;
var t: real;
n,i: byte;
begin
readln(n);
t:=0;
for i:=1 to n do
t:=t+i/(i*i);
write(t:1:2);
readln
end.
Lời giải :
program hotrotinhoc ;
var T : real ;
i,n : integer ;
begin
write('n='); readln(n);
S:=0;
for i:= 1 to n do
if i mod 2=1 then
S:=S+2/(i*(i+2));
write('Tong la :',S);
readln
end.
uses crt;
var a:array[1..10000000] of longint;
i,n,d:longint;
s:real;
begin
clrscr;
write('Nhap n la ');readln(n);
for i:=1 to n do begin
if i mod 2<>0 then
s:=s+(2/(i*(i+2))); end;
write('Tong la ',s:0:2);
readln
end.
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);
readln;
end.
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);
readln;
end.
Program HOC24;
var i: integer;
s: real;
begin
s:=0;
for i:=1 to 100 do
s:=s+i/100;
write('S=',s:1:2);
readln
end.