Question

составить программу нахождения количества трехзначных чисел кратных 23

Answer 1

begin  
var a := ArrRandom(50, 100, 999);  
a.println;  
writeln(a.Where(x -> (x mod 23 = 0)).Count);
end.