1/ Tính tổng các số tự nhiên
S=1+2+3+……+N
2/ Tính tích các số tự nhiên
P=1*2*3*…….*N
1/ Tính tổng các số tự nhiên S=1+2+3+-..+N 2/ Tính tích các số tự nhiên P=1*2*3*-…*N
By Delilah
By Delilah
1/ Tính tổng các số tự nhiên
S=1+2+3+……+N
2/ Tính tích các số tự nhiên
P=1*2*3*…….*N
Bài 1:
Program NhatNgu;
Uses crt;
Var n,i,s: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
s:=0;
For i:=1 to n do
s:=s+i;
Write(‘S = ‘,s);
Readln
End.
Bài 2:
Program NhatNgu;
Uses crt;
Var n,i,s: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
s:=1;
For i:=1 to n do
s:=s*i;
Write(‘S = ‘,s);
Readln
End.