var
n,count,i:integer;
begin
count:=0;
readln(n);
for i:=1 to n do
begin
readln(n);
if (n mod 4 = 0) and (n mod 7 <> 0) then
inc(count);
end;
writeln(count);
end.
Ответ:
анера -арена
анизрок - корзина
казкюр - рюкзак
руко -
урок
евнса - весна
омркмоу одджь ен тсарешн - мокрому дождь не страшен
1, 2, 5 Только эти три удовлетворяют.
# Код на ruby 2.2.3p173
def zadanie(lineal_array, x, y)
k = 0
lineal_array.each {|element|
k = k + 1 if element < x or element > y
}
return k
end
# Примеры применения
p zadanie([1, 2, 3, 4, 5], 2, 3)