1 . Viết chương trình nhạo dãy N số nguyên .tính tích các số chẵn Giúp mk vs ạ

0 bình luận về “1 . Viết chương trình nhạo dãy N số nguyên .tính tích các số chẵn Giúp mk vs ạ”

1. program h247;

   uses crt;

   var i, n, tich: integer;

         a:array[1..500]of integer;

   begin

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

   tich:=1;

   for i:=1 to n do

   begin

   write(‘Nhap a[‘,i,’] ‘); readln(a[i]);

   if a[i] mod 2=0 then tich:=tich*i;

   end;

   write(‘Tich cac so chan la ‘,tich);

   end.

   Bình luận

2. uses crt;
   var i,n,tich:integer;
       A:array[1..1000] of integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      tich:=1;
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
         if A[i] mod 2=0 then tich:=tich*i;
      end;
      write(‘Tich cac so chan la ‘,tich);
   end.

   Bình luận