дан массив из n натуральных чисел .определить количество элементов кратных 3 и не кратных 5
Answers & Comments
JustPeopleVAR i, el, kol, n: Integer; BEGIN Read(n); kol := 0; for i := 1 to n do begin Read(el); if (el mod 3 = 0)and(el mod 5 <> 0) then Inc(kol); end; Write(kol); END.
Answers & Comments
i, el, kol, n: Integer;
BEGIN
Read(n);
kol := 0;
for i := 1 to n do begin
Read(el);
if (el mod 3 = 0)and(el mod 5 <> 0) then Inc(kol);
end;
Write(kol);
END.