Dùng pascal để tính tổng S=1/(1+37)+1/(1+38)+1/(1+39)+...+1/1+n VD: nhập n từ bàn phím n>STT (37)
Những câu hỏi liên quan
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.
Đúng 1
Bình luận (0)
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.
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
*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.
Đúng 0
Bình luận (0)
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.
Đúng 2
Bình luận (0)
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.
Đúng 1
Bình luận (0)
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.
Đúng 0
Bình luận (0)
NGÔN NGỮ C GIÚP MÌNH VỚI Ạ. 3.Viết chương trình tính tổng nghịch đảo của n số nguyên đầu tiên, theo công thức sau: S 1 + 1/2 + 1/3 + …+ 1/n 5.Viết chương trình nhập số nguyên dương n từ bàn phím, n10, tính và đưa ra màn hình giá trị n! 6.Viết chương trình tính và in tổng dưới đây ra màn hình: S 1 + 1/(2!) + 1/(3!) + .. + 1/(n!) với n được nhập từ bàn phím, 0n10. 8.Viết chương trình in ra các số nguyên tố từ 2 đến n, với n nhập từ bàn phím. 10.Nhập tử số và mẫu số của một phân số, in phân số đó...
Đọc tiếp
NGÔN NGỮ C GIÚP MÌNH VỚI Ạ. 3.Viết chương trình tính tổng nghịch đảo của n số nguyên đầu tiên, theo công thức sau: S = 1 + 1/2 + 1/3 + …+ 1/n 5.Viết chương trình nhập số nguyên dương n từ bàn phím, n<=10, tính và đưa ra màn hình giá trị n! 6.Viết chương trình tính và in tổng dưới đây ra màn hình: S = 1 + 1/(2!) + 1/(3!) + .. + 1/(n!) với n được nhập từ bàn phím, 0<n<10. 8.Viết chương trình in ra các số nguyên tố từ 2 đến n, với n nhập từ bàn phím. 10.Nhập tử số và mẫu số của một phân số, in phân số đó dưới dạng tối giản.
Mô tả thuật toán cho bài toán sau:
Tính tổng S=1+2+…+n ( với n <100, n được nhập vào từ bàn phím)
Tính tổng s= ½ + ¼ + 1/6 + … + 1/n (0< n<1000, n được nhập vào từ bàn phím
Tìm số lớn nhất trong 1 dãy số nguyên bất kỳ được nhập vào từ bàn phím
c:
#include <bits/stdc++.h>
using namespace std;
long long ln,i,n,x;
int main()
{
cin>>n;
ln=LLONG_MIN;
for (i=1; i<=n; i++)
{
cin>>x;
ln=max(ln,x);
}
cout<<ln;
return 0;
}
Đúng 0
Bình luận (0)
Bài 1: Viết chương trình Pascal nhập số từ bàn phím. Xuất ra màn hình:+ Tính n!+ Nhập số x từ bàn phím.Tính nxBài 2: Viết chương trình Pascal nhập số n từ bàn phím. Xuất ra màn hình + Dòng 1: Các ước của n+ Dòng 2: Nếu n là số lẻ thì xuất ra màn hình các số nguyên tố từ 2 đến n+ Dòng 3: Nếu n là chẵn thì xuất ra màn hình các số hoàn hảo từ 1 đến n+ Dòng 4: Tổng các ước của n( 2 bài khác nhau mọi người làm riêng ra giúp mình ạaaaaaa)
Đọc tiếp
Bài 1: Viết chương trình Pascal nhập số từ bàn phím. Xuất ra màn hình:
+ Tính n!
+ Nhập số x từ bàn phím.Tính nx
Bài 2: Viết chương trình Pascal nhập số n từ bàn phím. Xuất ra màn hình
+ Dòng 1: Các ước của n
+ Dòng 2: Nếu n là số lẻ thì xuất ra màn hình các số nguyên tố từ 2 đến n
+ Dòng 3: Nếu n là chẵn thì xuất ra màn hình các số hoàn hảo từ 1 đến n
+ Dòng 4: Tổng các ước của n
( 2 bài khác nhau mọi người làm riêng ra giúp mình ạaaaaaa)
S=1/1+1/2+1/3+......+1/n( n nhập từ bàn phím) =1/2+1/4+1/6+.....+1/n(n nhập từ bàn phím) S=1/3+1/5+1/7+....+1/n ( n nhập từ bàn phím)
viết chương trình pascal tính tổng các số từ 1 đến n, n nhập từ bàn phím, sử dụng biến mảng
Uses crt;
Var
S,i,n:Integer;
a:array[1..100] of integer;
BEGIN
Write( ‘ Nhap so n:’ );
Readln( n );
For i:=1 to n do
begin
a[i]:=i;
s:=s+a[i]
end;
Writeln( ‘Tong = ’, S);
Readln;
END.