Question

Viết chương trình tích P=1*2*3*...*n dừng khi P>2000

Answer 1

program hotrotinhoc ;

var n,P : integer ;

begin

P:=1;

while P<=2000 do

begin

n:=n+1;

P:=P*i ;

end;

write('P=',P);

readln

end.

Answer 2

program hotrotinhoc ;

var n,P : integer ;

begin

P:=1;

while P<=2000 do

begin

n:=n+1;

P:=P*i ;

end;

write('P=',P);

readln

end.