• дан массив из n натуральных чисел .определить количество элементов кратных 3 и не кратных 5

Ответы 1

  • 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.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years