Cho sô nguyên dương N và dãy số a1,an đếm các giá trị chia hết cho 3 và 5 :<

0 bình luận về “Cho sô nguyên dương N và dãy số a1,an đếm các giá trị chia hết cho 3 và 5 :<”

1. program bai1;

   uses crt;

   var n: integer;

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

          i: integer;

   begin

   clrscr;

   write (‘N = ‘); readln (n);

   for i:=1 to n do begin write (‘a[‘,i,’] = ‘); readln (a[i]); end;

   write (‘Ket qua = ‘)

   for i:=1 to n do if (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then write (a[i],’   ‘);

   readln;

   end. 

   Bình luận