Программа загадывает 35 случайных чисел из промежутка[50; 350]и подсчитывает сколько из них являются кратными 3,но не заканчивающихся цифрой 2. paskal.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin var a:=ArrRandom(35,50,350); a.Println; Writeln('k=',a.Where(x->(x mod 3=0) and (x mod 10<>2)).Count) end.
begin
var a:=ArrRandom(35,50,350); a.Println;
Writeln('k=',a.Where(x->(x mod 3=0) and (x mod 10<>2)).Count)
end.
Тестовое решение:
74 243 74 138 215 124 247 255 112 171 71 246 216 346 125 318 251 312 217 58 146 150 202 279 75 121 210 297 129 280 122 234 185 296 307
k=14