Giải giúp mình với ngày mai mình kiểm tra rồi : Bài 1 viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến n Bài 2 viết chương trình tính tích (n) của các số tự nhiên từ 1 đến n bằng vòng lặp while Bài 3 viết chương trình tính tổng các số từ 35 đến 77 bằng vòng lặp while

1)

program ct;

uses crt;

var i,n,S:longint;

begin clrscr;

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

       S:=0;

     for i:=1 to n do

       if i mod 2=0 then S:=S+i;

   write('Tong la: ',S);

readln;

end.

2)

program ct;

uses crt;

var i,n,T:longint;

begin clrscr;

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

     i:=1; T:=1;

   while i<=n do

     begin

        i:=i+1;

        T:=T*i;

     end;

   write('Tich la: ',T);

readln;

end.

3)

progarm ct;

uses crt;

var i,S:longint;

begin clrscr;

     i:=34; S:=0;

   while i<=77 do

     begin

        i:=i+1;

        S:=S+i;

     end;

   write('Tong tu 35 den 77 la: ',S);

readln;

end.

Học tốt!

Bài `1`

Program Hotboy;

Uses crt;

Var i,n,T: Integer;

Begin

clrscr;

  Write('Nhap so n tu ban phim'); 

  Readln(n);   

 For i:=1 to n do

 If ( i mod 2=0) then S:=S+i;

   Write('Tong can tim  la: ',T);

Readln;

End.

Bài `2`

Program Hotboy;

Uses crt;

var S:longint;

i,n : integer;

Begin

Clrscr;

 i:=1; S:=1;

Write('Nhap so n tu ban phim '); Readln(n);  

While i<=n do

     Begin

        S:=S*i; inc(i)

     End;

   Write('Tich la: ',S);

    Readln

    End.

Bài `3`

    Progarm Hotboy;

   Uses crt;

   Var i,S:longint;

   Begin 

   Clrscr;

   While i>34 and i<=77 do

   begin

   S:=S+i; inc(i);

   End;

   Write('Tong la: ',S);

   Readln

   End.