Хто такая Насця Закрэўская?

НВТула НВТула    2   17.04.2019 01:50    1

Ответы
Neckbeardicus Neckbeardicus  01.06.2020 19:59
Var
  i, n, k: integer;

begin
  read(n);
  for i := 1 to n do
    if (i mod 2 = 0) and (n mod i = 0) then
      k := k + 1;
  writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы