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

//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

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!