3. дано натуральное число. найти сумму его четных делителей и количество этих делителей.

265

320

Посмотреть ответы 2

Ответы на вопрос:

hbgggb

Информатика

4,5(22 оценок)

//pascal abc.net v3.1 сборка 1172 var n,s,k,i: integer; begin readln(n); for i: =1 to n do if (n mod i=0) and (i mod 2=0) then begin inc(k); s: =s+i; end; writeln('s=',s); write('k=',k); end. пример ввода: 22 пример вывода: s=24 k=2