Даниил
4 год назад
Пожалуйста посчитайте пожалуйста!!!вначале вводится число n ,а потом еще n целых чисел. программа должна считать количество, чисел не кратных 6 и не рканчивающихся на 7
ОТВЕТЫ
Герман
Oct 24, 2020
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.
n: integer;
begin
Readln(n);
var a := ReadArrInteger(n);
writeln(a.Where(x -> (x mod 6 <> 0) and (x mod 10 <> 7)).Count)
end.
555
