1. viết chương trình free pascal tính N! = 1,2,3,4..N ( với N là số tự nhiên nhập từ bàn phím) 2.Viết chương trình tính tổng dãy số 1+2+3+4+…+n>=n (

1/

uses crt;

var n: byte;

gt: word;

begin

clrscr;

gt:=1;

write (‘nhap n: ‘);  readln (n);

for i:=1 to n do

gt:=gt*i;

writeln (‘N!=’,gt);

readln;

end.

2/

uses crt;

var i,n: integer;

s: longint;

begin

clrscr;

write (‘nhap n: ‘);  readln (n);

for i:=1 to n do s:=s+i;

writeln (‘tong la: ‘,s);

readln;

end.

`text\(xin hay nhất nha !!!)`