Cho dãy A gồm n số nguyên a1,a2,a3,…an .Hãy cho biết trong dãy A có bao nhiêu số chia hết cho 2 và 3

0 bình luận về “Cho dãy A gồm n số nguyên a1,a2,a3,…an .Hãy cho biết trong dãy A có bao nhiêu số chia hết cho 2 và 3”

1. Uses crt;

   Var a:array[1..1000000] of longint;

         i, n, sch: integer;

   Begin

   Clrscr;

   Write(‘Nhap n = ‘); readln(n);

   For i:=1 to n do

   Begin

     Write(‘a[‘,i,’]=’);

     Readln(a[i]);

   End;

   sch:=0;

   For i:=1 to n do if (a[i] mod 2 = 0) and (a[i] mod 3 = 0) then inc(sch);

   Writeln(‘Co ‘,sch,’ so chia het cho 2 va 3′);

   Readln

   End.

   Bình luận

2. program ct;

   uses crt;

   var n,i,d:integer;

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

   begin

   clrscr;

   write(‘nhap n=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang a[‘,i,’]=’);readln(a[i]);

   end;

   d:=0;

   for i:=1 to n do

   if (a[i] mod 2=0) and (a[i] mod 3=0) then d:=d+1;

   writeln(‘co’,d,’ so chia het cho 2 va 3′);

   readln

   end.

   Bình luận