Viết chương trình tính tích A=1*2*3*4*…*(n-1)*n sao cho tích A là một số tự nhiên lớn nhất có 3 chữ số.
Cứu em với. Viết chương trình pascal khó quá đi ạ
uses crt; var i,t : integer; begin clrscr; t:=1; i:=1; while t<=999 do begin t:=t*i; i:=i+1; end; write('Tich A lon nhat co 3 chu so do la :', t/i:0:0); readln end.