Предмет: Информатика,
автор: eeoneguyfubs
Сформировать и вывести на экран последовательность из 25 элементов заданных датчиком случайных чисел на интервале 20,84 Найти кол-во элементов кратных 3 и нечетных и не кратных 10
Ответы
Автор ответа:
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
// Внимание! Если программа не работает, обновите версию!
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
Интересные вопросы
Предмет: Информатика,
автор: zkirienko
Предмет: Математика,
автор: tkachenkotnv
Предмет: Химия,
автор: pkm9kkfw92
Предмет: Алгебра,
автор: guldanaospan
Предмет: Математика,
автор: лера534