VIẾT CT pascal tính tổng S=1/3+1/5+1/7+...+1/2n+1 với n nhập từ bàn phím
viết chương trình tính tổng S= 1/3 + 1/5 + 1/7+....+1/(2n+1)
In kết quả ra màn hình. Với n là số nguyên dương được nhập vào từ bàn phím
#include <bits/stdc++.h>
using namespace std;
long long i,n;
double s;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
s=s+((1*1.0)/(2*(i*1.0+1*1.0)));
cout<<fixed<<setprecision(2)<<s;
return 0;
}
Program HOC24;
var n,i: integer;
s: longint;
begin
write('Nhap N: '); readln(n);
s:=2021;
for i:=0 to n do s=s+(2*i+1);
write('S= ',s);
readln
end.
*Cách 2: Dùng While do
uses crt;
var s,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=2021;
i:=0;
while i<=n do
begin
s:=s+(2*i+1);
i:=i+1;
end;
writeln(s);
readln;
end.
Giúp mik nhanh nha Câu 1: viết câu lệnh tính tổng s=-1-1/2-1/3-...-1/n với n là số nguyên nhập từ bàn phím Câu 2: Viết ct nhập điểm ktra học kì môn tin học cho N học sinh và in ra màn hình.(N và điểm đc nhập từ bàn phím, sử dụng biến mảng) Câu 3: Viết ct nhập vào mảng các số nguyên A gồm 30 phần tử, các phần tử có gtrị ko quá 32767. Thông báo ra màn hình ptử nhỏ nhất và vị trí trong mảng
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+3+5+...+n. N là số nguyên nhập từ bàn phím
Program HOC24;
var i,n: integer;
S: longint;
begin
write('Nhap N: '); readln(n);
i:=1; s:=0;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
write('S=',S);
readln
end.
program tinh_tong_S;
var
n, i, S: integer;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + i;
i := i + 2;
end;
writeln('Tong S la: ', S);
readln;
end.
VIết CHươNG TRình PaSCAL sỬ dỤNG vÒNG lẶP lẶP while...do ĐỂ tÍNH tỔNG s=1+2+3+...+n Với n lÀ sỐ nguyÊn được nhẬP tỪ bÀN phÍM
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+1/2+1/3+...+1/n. N là số nguyên nhập từ bàn phím
program tinhtong;
var n,i : integer;
S : real;
begin
write('Nhap n: ');
readln(n);
i:=1;
S:=0;
while i<=n do
begin
S:=S+1/i;
i:=i+1;
end;
writeln('Tong S= ',S);
readln;
end.
program tinh_tong_S;
var
n, i: integer;
S: real;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + 1 / i;
i := i + 1;
end;
writeln('Tong S la: ', S:0:2);
readln;
end.
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+1/2²+1/3²+...+1/n². N là số nguyên nhập từ bàn phím
*for..do
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/sqr(i);
write('S= ',s:6:2);
readln
end.
*while..do
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap n: '); readln(n);
i:=1;
while i<=n do
begin
s:=s+1/sqr(i);
i:=i+1;
end;
write('S= ',s:6:2);
readln
end.
Viết chương trình tính tổng phương các số lẻ sau:
1^3+3^3+5^3+7^3+...+(2n–1)^3
Biết n nhập từ bàn phím là số nguyên dương
-Python:
n=int(input('n= '))
t=0
for i in range(1,2*n):
if i%2!=0:
t+=i**3
print('Tong=',t)
#include <bits/stdc++.h>
using namespace std;
long long i,n,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=2*n; i++)
if (i%2!=0) t+=pow(i,3);
cout<<t;
return 0;
}
1. Viết chương trình yêu cầu nhập số nguyên N từ bàn phím. Tính tổng các số nguyên đầu tiên của N theo công thức S= \(\dfrac{1}{3}+\dfrac{1}{5}+\dfrac{1}{7}...+\dfrac{1}{2N+1}\)(với N \(\ge\)1). Sau đó in kết quả ra màn hình.
2. Cho dãy số sau: 2; 5; 8; 11. Viết chương trình yêu cầu nhập số nguyên N từ bàn phím. Tính tích E, sau đó in ra màn hình.
E= 2.5.8.11.. } N số nguyên
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(2*i+1);
writeln(s:4:2);
readln;
end.