* fo...do

Program HOC24;

var A: integer;

i: byte;

Begin

A:=0;

for i:=1 to 200 do

if i mod 5=0 then A:=A+i;

write('A= ',A);

readln

end.

* while...do

Program HOC24;

var A: integer;

i: byte;

Begin

A:=0; i:=5;

while i<=200 do

begin

A:=A+i;

i:=i+5;

end;

write('A= ',A);

readln

end.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.

Sử dụng For.. do:

Var i,S:integer;

Begin

For i:= 1 to 100 do If i mod 2 = 0 then S:= S+i;

Writeln(' tong cac so chan :',S);

Readln;

end.

Sử dụng While ..do:

Var i,S:integer;

Begin

i:=0;

While i<=100 do If i mod 2 = 0 then S:= S+i;

Writeln(' tong cac so chan :',S);

Readln;

end.

1:

a)

uses crt;

var i,n,t:integer;

begin

clrscr;

write('n='); readln(n);

t:=0;

for i:=1 to n do

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

writeln('Tong cac so chan la: ',t);

readln;

end.

b)

uses crt;

var i,t,n:integer;

begin

clrscr;

write('n='); readln(n);

t:=0; i:=1;

while i<=n do

begin

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

i:=i+1;

end;

writeln('tong cac so chan la: ',t);

readln;

end.

2:

a)

uses crt;

var i,n,t:longint;

begin

clrscr;

write('nhap n='); readln(n);

t:=1;

for i:=1 to n do

if i mod 2=0 then t:=t*i;

writeln('Tich cac so chan la: ',t);

readln;

end.

b)

uses crt;

var i,n,t:longint;

begin

clrscr;

write('n='); readln(n);

t:=1; i:=1;

while i<=n do

begin

if i mod 2=0 then t:=t*i;

i:=i+1;

end;

writeln('Tich cac so chan la: ',t);

readln;

end.

Sử dụng vòng lặp while...do:

program TinhTong20SoTNN;
var
  i, sum: integer;
begin
  i := 1;
  sum := 0;
  while i <= 20 do
  begin
    sum := sum + i;
    i := i + 1;
  end;
  writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.

Sử dụng vòng lặp for...do:

program TinhTong20SoTNN;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 1 to 20 do
    sum := sum + i;
  writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.

* Sử dụng For ... do

Var i,s:integer;

Begin

For i:=1 to 10 do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

* Sử dụng While ... do

Var i,s:integer;

Begin

i:=1;

While i<=10 do

Begin

s:=s+i;

i:=i+1;

End;

Write('tong la ',s);

Readln;

End.

uses crt;

var i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do if n mod i=0 then write(i:4);

readln;

end.

for ... do

program Tinh_S;

uses crt;

var i,n:byte;

     S:longint;

begin

        writeln('Nhap so n='); readln(n);

       S:=0;

       for i:=1 to n do 

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

       writeln('Tong cac so le nho hon hoac bang n la, S=',S)

       readln

end.

* While....do

Uses crt;

var n,i,k: integer;

begin clrscr;

readln(n);

i:=0;

while(i<=n) do begin

i:=i+1;

if(i mod 2<>0) then k:=k+i;

end;

writeln(k);

readln;

end.

* for...do

Uses crt;

var n,i,u: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(i mod 2<>0) then u:=u+i;

writeln(u);

readln;

end.

while... do

program Tinh_P;

uses crt;

var i,n:byte;

      P:longint;

begin

         writeln('Nhap so n='); readln(n);

        P:=0; i:=1;

        while i<=n do

          begin

             if i mod 2=1 then P:=P+i;

             i:=i+1;

          end;

       writeln('Tong so le nho hon hoac bang n la, P=',P);

       readln

end.