Дан массив из n натуральных чисел .определить количество элементов кратных 3 и не кратных 5
Дан массив из n натуральных чисел .определить количество элементов кратных 3 и не кратных 5
Гость
Ответ(ы) на вопрос:
ГостьVAR
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.
Не нашли ответ?
Похожие вопросы