Вначале вводится число n ,а потом еще n целых чисел. программа должна считать количество, чисел не кратных 6 и не рканчивающихся на 7

лёванчик228 лёванчик228    3   01.09.2019 13:50    4

Ответы
катя46737889 катя46737889  06.10.2020 09:52
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика