1. viết chương trình tính tổng 20 stn đầu tiên 2. viết chương trình tính tổng của các số chẵn trong 50 số tự nhiên đầu tiên 3.viết chương trình tính N giai thừa. biết N nhập từ bàn phím

1) 

Program Hotboy ;

Uses crt;

Var i,s : byte;

Begin

Clrscr;

S:=0;

For i:=1 to 20 do

S:=S+i;

Inc(i);

Write('tong la',S);

Readln

End.

2)

Program Hotboy ;

Uses crt;

Var i,s : byte;

Begin

Clrscr;

S:=0;

For i:=1 to 50 do

If ( i mod 2=0) then

S:=S+i;

Write('tong la',S);

Readln

End.

3) 

Program Hotboy;

Uses crt;

Var n, gt:longint;

Begin

     clrscr;

     Repeat

     write('Nhap so n: ');readln(n);

     until n>0;

     gt:=1;

     while n>0 do

     begin

     gt:=gt*n;

     n:=n-1;

     end;

     writeln('Giai thua cua n la: ',gt);

     readln