viết chương trình tính tích 100 số nguyên đầu tiên được nhập vào từ bàn phím giúp em với ạ, ai nhanh em sẽ vote 5 sao cho mọi người

0 bình luận về “viết chương trình tính tích 100 số nguyên đầu tiên được nhập vào từ bàn phím giúp em với ạ, ai nhanh em sẽ vote 5 sao cho mọi người”

1. program phuongt;
   uses crt;
      var i, x: integer;
               s: longint;
   begin
           clrscr;
           s:=1;
           i:=1;
           while i<=100 do
           begin
                    write(‘Nhap so thu ‘, i, ‘: ‘); readln(x);
                    s:=s*x;
                    i:=i+1;
           end;
           write(‘Tich = ‘, s);
           readln
   end.

   Bình luận

2. uses crt;

   var tich:longint;

   i,c,:integer;

   begin

   clrscr;

     while i<=100 do

   begin

   write(‘nhap so thu’,i,’= ‘);readln(c);

   tich:=tich*c; i:=i+1;

   write(‘tich cac so da nhap’,tich);

   readln

   end.

         

   Bình luận