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á đ

0 bình luận về “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á đ”

1. 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.

   Bình luận

2. program kaito;

   uses crt;

   var n, a: integer;

   begin

      clrscr;

      a:=1; n:=1;

      while a<1000 do begin n:=n+1; a:=a*n; end;

      writeln(‘A = ‘,a);

      readln;

   end.

   CHÚC BẠN HỌC TỐT!!!

   Bình luận