1/

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

cú pháp lệnh lặp while:    while <điều kiện> do <câu lệnh>;

2/

for to do:

uses crt;

var i,n,s: integer;

begin

clrscr;

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

for i:=1 to (10+n)*(10+n) do s:=s+(i*i);

writeln ('tong la: ',s);

readln;

end.

while do:

uses crt;

var i,n,s: integer;

begin

clrscr;

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

i:=0;

while i<=(10+n)*(10+n) do

begin

i:=i+1;

s:=s+(i*i);

end;

writeln ('tong la: ',s);

readln;

end.

câu 3:

uses crt;

var i,n,t: integer;

begin

clrscr;

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

t:=1;

for i:=2 to n do

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

writeln ('T=',t);

readln;

end.

1.

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

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

2.

FOR...DO:

uses crt;

var i,n,s: longint;

begin

clrscr;

readln(n);

for i:=1 to n do s:=s+(i*i);

write(s);

readln

end.

WHILE...DO:

uses crt;

var i,n,s: longint;

begin

clrscr;

readln(n);

while i<=n do

begin

i:=i+1;

s:=s+(i*i);

end;

write(s);

readln

end.

3.

FOR...DO:

uses crt;

var i,n,s: longint;

begin

clrscr;

readln(n);

for i:=1 to n do if i mod 2=0 then s:=s*i;

write(s);

readln

end.

WHILE...DO:

uses crt;

var i,n,s: longint;

begin

clrscr;

readln(n);

while i<=n do

begin

i:=i+1;

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

end;

write(s);

readln

end.