ответ: Попробуй так
begin
var a := ArrRandom(50, 100, 999);
a.println;
writeln(a.Where(x -> (x mod 23 = 0)).Count);
end.
f=1
for i in range (1,24):
f=f*i
print ('23! =',f)
Объяснение:
картинка
Факториал - произведение чисел от 1 до числа, факториал которого нужен, включительно
