1) Viết chương trình tính S = 0 + 1 + 2 +… + n? 2) Viết chương trình tính P = 1*2*3*…*n? 3) Viết chương trình tìm S = 0+1+2+- nhó nhất lớn hơ

1.

Program bai_1;

Var i,n:integer;

      S:real;

Begin

         S:=1; i:=1;

          While i<= n do

              begin

                     S:=S+1;

                      i:= i+1;

              end;

              Write(S);

End.

2.Program FNG;
Uses crt;
Var n,i: integer;
    p: real;;
Begin
        Clrscr;
        Write(‘Nhap n: ‘); Readln(n);
        p:=1;
        For i:=1 to n do
                p:=p*i;
        Write(‘P = ‘,p);
        Readln
End.

3.

Program Tinh_Tong;
Var i:integer;
S:real;
Begin
S:=0;
For i:=1 to 1000 do S:=S+i;
Write(‘Tong S=’,S);
Readln;
End.

4. Ko bt làm