

1/Tính tổng S=1+1*2+1*2*3+...
2/Tính tổng S=1-2+3-4+(-n) mũ n-1
2/Tính tổng S=1-2+3-4+(-n) mũ n-1
Bạn muốn viết chương trình hay thuật toán?1/Tính tổng S=1+1*2+1*2*3+...
2/Tính tổng S=1-2+3-4+(-n) mũ n-1
Bạn muốn viết chương trình hay thuật
Cả hai ý
S=1+1*2+1*2*3+...tới mấy vậy bạn1/Tính tổng S=1+1*2+1*2*3+...
2/Tính tổng S=1-2+3-4+(-n) mũ n-1
...nbài 1:
S=1+1*2+1*2*3+...tới mấy vậy bạn
bài này là tính tổng giai thừa từ 1 đến nÝ của bạn là n*(n+1)*(n+2)
N là số mình nhập ấyÝ của bạn là n*(n+1)*(n+2)
làm kiểu này chạy lâu lắm đó e.1/
Mã:uses crt; var i,s,k,n,j:integer; begin readln(n); for i:=1 to n do begin k:=1; for j:=1 to i do k:=k*j; s:=s+k; end; write(s); readln end.
k := 1;
for i := 1 to n do
begin
k := k*i;
s := s + k;
end;
N là số mình nhập ấy
Thật ra là đề cô cho ghi vậy á k biết mình có ghi thiếu k
bài này là tính tổng giai thừa từ 1 đến n
nghĩa là S = 1! + 2! + ... + n!
Var
n:integer;
Function GT(a:integer):Longint;
Var
i,s:integer;
Begin
For i:=1 to a do
s:=s*i;
GT:=s;
end;
Begin
readln(n);
If (n=0) or (n=1) then write('giai thua:',1)
else write('giai thua cua ',n,'la:',gt(n));
readln
end.
Cảm ơn lun ạem hiểu rồi ạ, vậy thì code đây bạn
Mã:Var n:integer; Function GT(a:integer):Longint; Var i,s:integer; Begin For i:=1 to a do s:=s*i; GT:=s; end; Begin readln(n); If (n=0) or (n=1) then write('giai thua:',1) else write('giai thua cua ',n,'la:',gt(n)); readln end.
không phải tính giai thừa n mà là tổng giai thừa từ 1 đến n nha eem hiểu rồi ạ, vậy thì code đây bạn
Mã:Var n:integer; Function GT(a:integer):Longint; Var i,s:integer; Begin For i:=1 to a do s:=s*i; GT:=s; end; Begin readln(n); If (n=0) or (n=1) then write('giai thua:',1) else write('giai thua cua ',n,'la:',gt(n)); readln end.
N là số mình nhập ấy
Thật ra là đề cô cho ghi vậy á k biết mình có ghi thiếu k
Vâng, e bị lộn ạ.không phải tính giai thừa n mà là tổng giai thừa từ 1 đến n nha e
Var
n:integer;
t,a,i,n:integer;
Begin
readln(n);
t:=0;a:=1;
For i := 1 to n do
begin
a := a*i;
t := t + a;
end;
write('tong la:',t);
readln
end.