Em hãy viết chương trình tính tích N số tự nhiên đầu tiên sao cho tích nhỏ hơn 1000 vs N số tự nhiên đc nhấp vào từ bàn phím và xuất ra số tự nhiên N

0 bình luận về “Em hãy viết chương trình tính tích N số tự nhiên đầu tiên sao cho tích nhỏ hơn 1000 vs N số tự nhiên đc nhấp vào từ bàn phím và xuất ra số tự nhiên N”

1. program tinh_tich;

   uses crt;

   var i,p,n:integer;

   begin

    clrscr;

   write(‘nhap n’);

   readln(n);

   tich:=1;

   for i:=1 to n do

     tich:=tich*i

   if tich<1000 then writeln(tich);

   if tich<1000 then writeln(‘n’,i);

   readln;

   end.

   Bình luận

2. uses crt;
   var n,i,p:longint;
   begin
   clrscr;
      write(‘N= ‘);readln(n);
      p:=1;
      for i:=1 to n do p:=p*i;
      writeln(‘So n: ‘,n);
      writeln(‘Tich p: ‘,p);
   readln
   end.
   

   Bình luận