Var
n: integer;
begin
Readln(n);
var a := ReadArrInteger(n);
writeln(a.Where(x -> (x mod 6 <> 0) and (x mod 10 <> 7)).Count)
end.
# # Код на ruby 2.2.3p173
count = 0
for i in 0..9
for j in 0..9
for k in 0..9
num = i*10**5+j*10**4+k*10**3+k*10**2+j*10**1+i*10**0
count+=1 if num.between?(189980,205505)
end
end
end
p count
ответ 17
Если я правильно понял, что нужно всегда выигрывать, то вот:
answer = planet
Введенное слово заменяется на заранее правильный ответ.
3е..............................................