Viết phương trình tính S=1+1/2+1/3+...+1/n
Những câu hỏi liên quan
Viết phương trình tính S=1*2*3*4*...*n
bn tham khảo
var n:longint;
//
function gt(n:longint):int64;
var h:longint;
begin
gt:=1;
for h:=2 to n do gt:=gt*h;
end;
//
begin
read(n);
write(gt(n));
end.
Đúng 2
Bình luận (0)
Var i,n,s:integer;
Begin
Write('Nhap n = ');readln(n);
s:=1;
For i:=2 to n do s:=s*i;
Write('S = ',s);
Readln;
End.
Đúng 0
Bình luận (0)
Bài 1: Viết phương trình tổng s= 1^3 + 2^3 + 3^3 +. . .n^3
Bài 2: Viết phương trình tổng y= 1*2*3*4*5*. . .*n
Bài 3: viết phương trình xem xét 1 số n được nhập từ bàn phím có phải là số hoàn chỉnh không? (Ví dụ: số 6 chia hết cho 1 2 3 và tổng 1+2+3 = 6 --> số đó là số hoàn chỉnh)
Bài 3:
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=sqrt(n); i++)
if (i==n/i) t=t+i;
else t=t+i+n/i;
if (t==n) cout<<"Day la so hoan hao";
else cout<<"Day khong la so hoan hao";
return 0;
}
Đúng 2
Bình luận (0)
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
1:
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
t:=t+i*i;
write(t);
readln;
end.
Đúng 1
Bình luận (0)
2
program bt2;
var i,n,t:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if i mod 2 = 1 then s:=s+i;
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình tính tổng các bình phương của n số tự nhiên S=1^2+2^2+...n^2
program TinhTongBinhPhuong;
var
n, i, S: Integer;
begin
Write('Nhap n: ');
Readln(n);
S := 0;
for i := 1 to n do
begin
S := S + i * i;
end;
WriteLn('Tong cac binh phuong la: ', S);
end.
Đúng 0
Bình luận (0)
1. Viết chương trình tính tổng sau:a) S 1+dfrac{1}{2}+dfrac{1}{3}+...+dfrac{1}{n}b) S 1+dfrac{1}{3}+dfrac{1}{5}+...+dfrac{1}{n}2. Viết chương trình nhập 2 số nguyên a và b. Tìm bội chung nhỏ nhất3. Cho một dãy số gồm N phân tử:- Tính tổng các phân tử trong dãy số- Tìm phân tử lớn nhất- In ra màn hình các số nguyên tố có trong dãy
Đọc tiếp
1. Viết chương trình tính tổng sau:
a) S = \(1+\dfrac{1}{2}+\dfrac{1}{3}+...+\dfrac{1}{n}\)
b) S = \(1+\dfrac{1}{3}+\dfrac{1}{5}+...+\dfrac{1}{n}\)
2. Viết chương trình nhập 2 số nguyên a và b. Tìm bội chung nhỏ nhất
3. Cho một dãy số gồm N phân tử:
- Tính tổng các phân tử trong dãy số
- Tìm phân tử lớn nhất
- In ra màn hình các số nguyên tố có trong dãy
BÀI 3
uses crt;
var a: array[1..100] of integer;
i,n,max,s,j: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);
for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
max:=a[1];
s:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
s:=s+a[i];
end;
writeln('so lon nhat trong day tren la:',max);
writeln('tong bang:',s);
writeln('so nguyen to trong mang la:');
j:=1;
for i:=1 to n do
if a[i]>1 then
begin
repeat
inc(j);
until (a[i] mod j=0);
if j>(a[i] div 2) then writeln(a[i]);
j:=1;
end;
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình tính tổng
a. S = 1 + 2 + 3 + ... + n
b. S = 1 + 1/2 + 1/3 + ... + 1/n
c. S = 1 + 1/2 + 1/3 + ... + 1/ (n+1)
trong đó n là số nguyên được nhập từ bàn phím
a: uses crt;
var s,i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(s);
readln;
end.
b:
uses crt;
var s:real;
i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
readln;
end.
c:
uses crt;
var s:real;
i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln(s+1/(n+1):4:2);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình tính các tổng sau: a) S=1+2+3+4+...+n b) S=1+3+5+...+n-1 c) S=2+4+6+...2n
Câu a:
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n+1):
S += i
print("Tổng S =", S)
Câu b:
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n, 2):
S += i
print("Tổng S =", S)
Câu c:
def calc_sum(n):
s=0
for i in range(1,n+1):
s += 2*i
return s
n = int(input("Nhập vào số n: "))
print("Tổng S=2+4+6+...2n là:",calc_sum(n))
Đúng 1
Bình luận (0)
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n+1):
S += i
print("Tổng S =", S)
Câu b:
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n, 2):
S += i
print("Tổng S =", S)
Câu c:
def calc_sum(n):
s=0
for i in range(1,n+1):
s += 2*i
return s
n = int(input("Nhập vào số n: "))
print("Tổng S=2+4+6+...2n là:",calc_sum(n))
Đúng 0
Bình luận (0)
Viết phương trình tính và đưa ra màn hình tổng s=1+2+3+...+100?
Program HOC24;
var s: integer;
i: byte;
begin
for i:=1 to 100 do s:=s+i;
write('S=',s);
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình tính biểu thức sau :
a) S=1+2+3+...+n với (n từ 30-90)
b) Tìm n để S >1000 với S = 1+2+3+...n
a)
program Tinh_S;
var
n, S: integer;
i: integer;
begin
write('Nhap gia tri cua n (30 <= n <= 90): ');
readln(n);
S := 0;
if (n >= 30) and (n <= 90) then
begin
for i := 1 to n do
S := S + i;
writeln('Gia tri cua bieu thuc S la: ', S);
end
else
writeln('Gia tri cua n khong hop le!');
readln;
end.
b)
program Tim_n;
var
n, S: integer;
begin
for n := 30 to 90 do
begin
S := 0;
for i := 1 to n do
S := S + i;
if S > 1000 then
begin
writeln('Gia tri cua n la: ', n);
break;
end;
end;
readln;
end.
Đúng 1
Bình luận (0)
a)program Tinh_S;
var n,s,i:longint;
begin
s := 0;
write('Nhap n (30 <= n <= 90): ');
readln(n);
for i := 1 to n do
begin
s := s + i;
end;
writeln('Tong S la: ', s);
end.
b) program Tim_N;
var n,s,i: longint;
begin
s := 0;
n := 1;
while s <= 1000 do
begin
s := s + n;
n := n + 1;
end;
writeln('Gia tri n can tim la: ', n-1);
end.
Đúng 0
Bình luận (0)