\(F=\dfrac{1}{1.2.3}+\dfrac{1}{2.3.4}+\dfrac{1}{3.4.5}+...+\dfrac{1}{18.19.20}\)
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
2 tháng 4 2023
program TinhTongDaySo;
var n, i, s: Integer;
begin
// Yêu cầu người dùng nhập vào số nguyên n từ bàn phím
write('Nhap vao n: ');
readln(n);
// In ra thông tin dãy số từ 1 đến n
writeln('Day so tu 1 den ', n, ':');
// Khởi tạo biến s để tính tổng dãy số
s := 0;
// Dùng vòng lặp for để in ra dãy số từ 1 đến n và tính tổng
for i := 1 to n do
begin
write(i, ' '); // In ra dãy số từ 1 đến n
s := s + i; // Tính tổng dãy số
end;
// In ra tổng dãy số
writeln('Tong day so: ', s);
// Dừng chương trình để người dùng có thể xem kết quả
readln;
end.
12 tháng 10 2019
program fibonaci;
uses crt;
var f:array[1..100]of integer;
n,i,j:integer;
begin
clrscr;
write('n='); readln(n);
f[1]:=1;
f[2]:=1;
i:=2;
repeat
inc(i);
f[i]:=f[i-1]+f[i-2];
until i=n;
writeln(n,' so fibonaci dau tien la: ');
for i:=1 to n do
write(f[i]:4);
readln;
end.
KV
16 tháng 5 2023
Var n,sc,sl,i:longint;
Begin
Write('N = ');readln(n);
Write('Cac so tu 1 den ',n,' la ');
For i:=1 to n do
Write(i:8);
Writeln;
For i:=1 to n do
Begin
If i mod 2 = 0 then sc:=sc+i
Else sl:=sl+i;
End;
Writeln('Tong cac so chan la ',sc);
Write('Tong cac so le la ',sl);
Readln
End.
23 tháng 12 2020
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan trong khoang tu 1 toi ',n,' la: ',t);
readln;
end.
NK
2
NB
2 tháng 1 2023
bạn tham khảo cách làm nha
https://expressmagazine.net/development/3718/pascal-tinh-tong-cua-cac-so-tu-nhien-tu-1-den-n
3 tháng 1 2023
#include <bits/stdc++.h>
using namespace std;
int n,i,t;
int main()
{
cin>>n;
t=0;
for (int i=1; i<=n; i++) t+=i;
cout<<t;
}
19 tháng 3 2021
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2,tam,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
randomize;
for i:=1 to n do
begin
a[i]:=random(205);
end;
write('Day so vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
end;
writeln('Tong cac so chan la: ',t1);
writeln('Tong cac so le la: ',t2);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
11 tháng 12 2021
1:
#include <bits/stdc++.h>
using namespace std;
long long n,i,dem,x;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x==0) dem++;
}
cout<<dem;
return 0;
}
20 tháng 2 2023
Câu 6:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
5:
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=0 to n do
if i mod 2=1 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln(dem);
readln;
end.
\(F=\dfrac{1}{1\cdot2\cdot3}+\dfrac{1}{2\cdot3\cdot4}+...+\dfrac{1}{18\cdot19\cdot20}\\ =\dfrac{1}{2}\left(\dfrac{2}{1\cdot2\cdot3}+\dfrac{2}{2\cdot3\cdot4}+...+\dfrac{2}{18\cdot19\cdot20}\right)\\ =\dfrac{1}{2}\left(\dfrac{3-1}{1\cdot2\cdot3}+\dfrac{4-2}{2\cdot3\cdot4}+...+\dfrac{20-18}{18\cdot19\cdot20}\right)\\ =\dfrac{1}{2}\left(\dfrac{1}{1\cdot2}-\dfrac{1}{2\cdot3}+\dfrac{1}{2\cdot3}-\dfrac{1}{3\cdot4}+...+\dfrac{1}{18\cdot19}-\dfrac{1}{19\cdot20}\right)\\ =\dfrac{1}{2}\left(\dfrac{1}{1\cdot2}-\dfrac{1}{19\cdot20}\right)\\ =\dfrac{1}{2}\cdot\left(\dfrac{1}{2}-\dfrac{1}{380}\right)\\ =\dfrac{1}{2}\cdot\dfrac{189}{380}\\ =\dfrac{189}{760}\)