Viết chương trình pascal tính tích của n số nhập vào từ bàn phím.

0 bình luận về “Viết chương trình pascal tính tích của n số nhập vào từ bàn phím.”

1. var i,n : integer;

         t : real;

   begin

   write (‘n= ‘); read(n);

   t := 1;

   for i:=1 to n do t:= t*i;

   writeln(‘ Tich cua ‘,n,’ la ‘,t);

   readln;

   end.

   Bình luận

2. uses crt;
   var n,i,p:longint; a:array[1..1000000] of longint;
   begin
   clrscr;
      readln(n);
      p:=1;
      for i:=1 to n do 
         begin
            read(a[i]);
            p:=p*a[i];
         end;
      writeln(p);
   readln
   end.

   Bình luận