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 lớn hơn 2000 thì dừng xuất ra số tự nhiên N và tích P tính được. =>Các bạn giải

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 lớn hơn 2000 thì dừng xuất ra số tự nhiên N và tích P tính được. =>Các bạn giải”

1. program Tich;

   uses crt;

   var N,P: integer;

   Begin

            clrscr;

            P:=1;

            while P<=2000 do

            begin

                     N:=N+1;

                     P:=P*N;

            end;

            write(‘N = ‘,N,’ ,  P = ‘,P);

            readln

   End.

   Bình luận