Viết chương trình tính tích: S = 1 * 2 * 3 * ... * n với n là số tự nhiên được nhập từ bàn phím.
Những câu hỏi liên quan
viết chương trình tính tổng n số tự nhiên : S =1+2+3+...+ n, với n là số tự nhiên được nhập từ bàn phím ( có sử dụng khai báo biến mảng )
program SumOfNumbers;
uses crt;
var
n, i, sum: integer;
numbers: array[1..100] of integer;
begin
clrscr;
write('Enter n: ');
readln(n);
// Tạo mảng các số tự nhiên từ 1 đến n
for i := 1 to n do
numbers[i] := i;
// Tính tổng các số tự nhiên từ 1 đến n
sum := 0;
for i := 1 to n do
sum := sum + numbers[i];
writeln('The sum of the first ', n, ' natural numbers is: ', sum);
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình tính tổng: S=1+1/2+1/3+...+1/n
Biết n là số tự nhiên được nhập từ bàn phím
var i,n: integer;
s:real;
begin
write(‘Nhập n: ‘); readln(n);
i:=1;
repeat
s:=s+1/i;
i:=i+1;
until i=n;
write(‘s =‘, s:0:4);
readln
end.
diepbich 016/08/2021 at 03:53ReplyProgram Hotboy ;
Uses crt;
Var n,i,s : real;
Begin
Writeln(‘nhap n’); readln(n);
Repeat
S:=S+ 1/i;
I:=i+1 ;
Until n=i;
Writeln(‘S=’,S);
Readln
End.
Đúng 2
Bình luận (3)
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln(s:4:2);
readln;
end.
Đúng 1
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:
S = 1 + 1/2! + 1/3! + … + 1/n! với n là số tự nhiên được nhập vào từ bàn phím.
Viết chương trình tính tích của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập vào từ bàn phím.
tham khảo
Đề bài: Viết chương trình tính n! với n là số tự nhiên không âm nhập vào từ bàn phím Để làm được bài này, trước tiên các bạn cần nhớ lại công thức tính n! đã. Theo định nghĩa giai thừa ta có: 0! = 1 n! = 1.2.3…n Vậy là ta có công thức rồi. Nhìn vào công thức ta thấy với n = 0 thì dễ rồi, nếu n > 0 thì nó là tích các số từ 1 đến n.
Đúng 1
Bình luận (0)
TK
Var i ,n : integer;
S , T : real;
Begin
write ('n=') ; read (n) ;
S:= 0;
T:= 1;
For i:= 1 to n do
S:= S + i;
T:= T * i;
Writeln (' Tong cua ' ,n,' so dau tien la' , S );
Writeln (' Tich của ' ,n,' so dau tien la' , T );
Readln;
End.
Đúng 1
Bình luận (0)
viết chương trình tính tích n số tự nhiên ( với n được nhập từ bàn phím )
uses crt;
var i,n,x,s:integer;
begin
clrscr;
readln(n);
s:=1;
for i:=1 to n do
begin
readln(x);
s:=s*x;
end;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var n,i:integer;
s:longint;
begin
clrscr;
writeln('nhap n:');readln(n);
for i:=1 to n do s:=s*i;
write('tich cua ',n,'so tu nhien dau tien la:',s);
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var n,i:integer;
s:longint;
begin
clrscr;
writeln('nhap n:');readln(n);
s:=1;
for i:=1 to n do s:=s*i;
write('tich cua ',n,'so tu nhien dau tien la:',s);
readln;
end.
Đúng 0
Bình luận (0)
2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.
Câu 3:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n>1 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' la hop so');
end
else writeln(n,' khong la so nguyen to cung khong la hop so');
readln;
end.
Đúng 1
Bình luận (1)
1. Viết chương trình tính tích N1*2*3*...*n (với n được nhập từ bàn phím) 2. Viết chương trình tính tổng A1/1*3+1/2*4+1/3*5+...+1/n*(n+2) 3. Viết chương trình tính tổng số lẻ có trong dãy từ 0-n (n được nhập từ bàn phím) 4. Viết chương trình in ra màn hình các số chẵn có trong dãy từ 0-n (n được nhập từ bàn phím) và đếm có bao nhiêu số. 5. Viết chương trình in ra màn hình các số lẻ có trong dãy số từ 0-n (n được nhập từ bàn phím) và đếm có bao nhiêu số. 6. Viết chương trình nhập số nguyên n. Tìm...
Đọc tiếp
1. Viết chương trình tính tích N=1*2*3*...*n (với n được nhập từ bàn phím)
2. Viết chương trình tính tổng A=1/1*3+1/2*4+1/3*5+...+1/n*(n+2)
3. Viết chương trình tính tổng số lẻ có trong dãy từ 0->n (n được nhập từ bàn phím)
4. Viết chương trình in ra màn hình các số chẵn có trong dãy từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
5. Viết chương trình in ra màn hình các số lẻ có trong dãy số từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
6. Viết chương trình nhập số nguyên n. Tìm và đưa ra màn hình các ước của n.
7. Viết chương trình in ra màn hình các bội của n ( n được nhập từ bàn phím)
8. Viết chương trình tính tổng S=1/1+1/2+1/3+...+1/n (n được nhập từ bàn phím)
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.
Đúng 2
Bình luận (0)
Viết chương trình tính tổng của n số tự nhiên bất kì được nhập từ bàn phím bằng lệnh while do với n là số nguyên được nhập từ bàn phím
program TongN;
var
n, i, tong: integer;
begin
tong := 0;
writeln('Nhap so nguyen duong N: ');
readln(n);
i := 0;
while i < n do
begin
i := i + 1;
tong := tong + i;
end;
writeln('Tong cac so tu 1 den ', n, ' la ', tong);
readln;
end.
Đúng 0
Bình luận (0)