Question

1)Tính tổng S của N số tự nhiên đầu tiên

S=1+2+3+...+N

2)Tính tích N! của N số tự nhiên đầu tiên

N!=1.2.3....N

Answer 1

program ho_tro;

uses crt;

var s,n,i: integer;

begin

clrscr;

writeln(' nhap so n:'); readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln(' tong la:',n);

readln;

Answer 2

program ho_tro;

uses crt;

var n1,n,i: integer;

begin

clrscr;

writeln(' nhap n:'); readln(n);

n1:=1;

for i:=1 to n do

n1:=n1*i;

writeln(' ket qua cua tich la:',n1);

readln;

end.

Answer 3

1:

uses crt;

var s,i,n:integer;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln('tong cua ',n,' so tu nhien dau tien la: ',s);

readln;

end.

2:

uses crt;

var n,i:integer;

gt:longint;

begin

clrscr;

write('nhap n='); readln(n);

gt:=1;

for i:=1 to n do

gt:=gt*i;

writeln(n,'!'=',gt);

readln;

end.