Viet phuong trinh tinh A=1*2*3*.......*10 Dieu Kien: i:<=10 sd lenh for......do while.......do giup MK vs dang can gap thx trc a do laptop cua Mk mat unikey nen k ghi dau dc mn thong cam a.

- Dùng for ... do

uses crt;

var i, A : longint;

begin

clrscr;

A := 1; for i := 1 to 10 do A := A * i;

write('A = ', A);

readln

end.

- Dùng while ... do

uses crt;

var i, A : longint;

begin

clrscr;

A := 1; i := 1;

while i <= 10 do begin

A := A * i; i := i + 1; end;

write('A = ', A);

readln

end.

for...to...do:

uses crt;
var n,i:integer; A:longint;
begin
   clrscr;
   A:=1;
   for i:=1 to 10 do A:=A*i;
   write('A=',A);
   readln
end.

while...do

uses crt;
var n,i:integer; A:longint;
begin
   clrscr;
   A:=1; i:=1;
   while i<=10 do
   begin
      A:=A*i;
      i:=i+1;
   end;
   write('A=',A);
   readln
end.