Либо робот, либо Персональный Компьютер
// 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
Диск
Камень
Кассета
Книжка
Дискета
Бумага
Флеш
Пишешь свое мнение. Например: в сети есть совершенно все, что нам нужно. Люди в интернете делятся своим опытом, отвечают на вопросы, создают сайты и электронные словари. Благодаря интернету, мы можем общаться с людьми, находить новые знакомства и даже отношения.