Viết chương trình tính tích các số nhập vào từ bàn phím cho đến khi tích lớn hơn 1000 ( môn tin học 8 )

0 bình luận về “Viết chương trình tính tích các số nhập vào từ bàn phím cho đến khi tích lớn hơn 1000 ( môn tin học 8 )”

1. program BT;

   uses crt;

   var n,i,S: integer;

   Begin

            clrscr;

            i:=1; S:=1;

            while S<=1000 do

            begin

                     write(‘Nhap so: ‘); readln(n);

                     S:=S*n;

                     i:=i+1;

            end;

            write(‘Tich cac so vua nhap = ‘,S);

            readln

   End.

   Bình luận

2. Program BT;

   uses crt;

   var s,i:integer;

   begin

   clrscr;

   s:=1;

   i:=1;

   while s<=1000 do

   begin

   i:=i+1;

   s:=s*i;

   end;

   writeln(s);

   readln;

   end.

   #No Name

   Bình luận