Câu 3:

Câu lệnh lặp với số lần biết trước:

+ for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

+ for <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;

VD: for i:=1 to 5 do write('Hoidap247!');

       for i:=5 downto 1 do write('Chao ban! ^^');

Câu lệnh lặp với số lần chưa biết trước:

while <điều kiện> do <câu lệnh>;

VD: while i<5 do write(':D');\

Câu 4:

program Min;
uses crt;
var i,n,S:integer;
begin
   clrscr;
   S:=0;
   write('Nhap n: '); readln(n);
   for i:=1 to n do S:=S+i;
   write('Tong la: ',S);
   readln
end.

Câu 5: 

program Min;
uses crt;
var i,S:integer;
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.

C3

+lặp với số lần biết trước

For<biến đếm>:=<giá trị đầu>to<Giá trị cuối>do<câu lệnh>;

VD:For i:=1 to 10 do T:=T+i;

+Lặp với số lần chưa biết trước

While <điều kiện> do< câu lệnh>;

VD:While n<5 do n:=n+1;

C4

Program viet_chuong_trinh_tong;

uses crt;

var n,i,s:integer;

Begin 

Clrscr;

write('nhap so :');

  readln(n);

  S:=0; {tong ban dau = 0} 

 for i:=1 to n do S:=S+i; {cong don cho toi n} 

 Write('Tong =',S);

readln;

End.

C5

var n,i,s:integer;

Begin 

 for i:=1 to 50 do If (i mod 2 =0) then s:=s+i;

 Write('Tong =',s);

readln;

End.