Предмет: Информатика, автор: eeoneguyfubs

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

Ответы

Автор ответа: danulpopov
0
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

Begin
var 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 41
4

Интересные вопросы