Cho tệp DULIEU.INP chứa dãy các số nguyên a1,a2-.an, viết chương trình tính tích các dãy số nguyên đó, sau đó đưa kết quả vào tệp DULIEU.OUT

0 bình luận về “Cho tệp DULIEU.INP chứa dãy các số nguyên a1,a2-.an, viết chương trình tính tích các dãy số nguyên đó, sau đó đưa kết quả vào tệp DULIEU.OUT”

1. uses crt;
   var f,d:text; n,i,tich:longint;
   a:array[1..1000000]of longint;
   begin
   clrscr;
      assign(d,’DULIEU.INP’);reset(d);
      assign(f,’DULIEU.OUT’);rewrite(f);
         readln(d,n);
         for i:=1 to n do read(d,a[i]);
         tich:=1;
         for i:=1 to n do tich:=tich*a[i];
         writeln(f,tich);
      close(d);
      close(f);
   end.

   Bình luận

2. program tinh_tich;

   uses crt;

   var f,g:text;

         A:array[1..1000] of integer;

         n,i:integer;

         tich:int64;

   begin

          Assign(f,’DULIEU.INP’);    reset(f);

          Assign(g,’DULIEU.OUT’);    rewrite(g);

          readln(f,n);

          tich:=1;

          for i:=1 to n do

                   begin

                            read(f,A[i]);

                           tich:=tich*A[i];

                   end;

          writeln(g,tich);

          close(f);   close(g);

   end.

          

   Bình luận