Có số nguyên dương N gồm các số a1 a2-an. đếm xem trong dãy có bao nhiêu số chia hết cho 3

0 bình luận về “Có số nguyên dương N gồm các số a1 a2-an. đếm xem trong dãy có bao nhiêu số chia hết cho 3”

1. program DEMSOCHIAHECHO3;

   uses crt;

   var i,n,m:integer;

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

   begin

   clrscr;

   m:=0;

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

   for i:=1 to n do

   begin

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

   if a[i] mod 3 = 0 then m:=m+1;

   end;

   writeln(‘Co ‘,m,’ so chia het cho 3′);

   readln;

   end.

   Bình luận