• Сформировать и вывести на экран последовательность из 25 элементов заданных датчиком случайных чисел на интервале 20,84 Найти кол-во элементов кратных 3 и нечетных и не кратных 10

Ответы 1

  • // PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!Beginvar a:= ArrRandom(15,20,84);a.PrintLn;Writeln(a.Where(t -> (t.isOdd)and(t mod 3 = 0)and(t mod 10 <> 0)).Count);end.Пример:64 64 76 31 21 81 53 30 58 38 66 69 57 65 414
    • Автор:

      bean
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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