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

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

madamsabirova2 @madamsabirova2

July 2022 1 7 Report

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

Answers & Comments

Gleb1Kosyrev

Verified answer

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

2 votes Thanks 2

madamsabirova2 Спасибо большое!

Answers & Comments

Verified answer

pozhalujsta pomogite1d034689074d2d04a0ec263c45ccaef0 14206

proshuuuuuuuuuuuuuuuuuuuuuuuuu

gidrokarbonat kaliya sulfat zheleza pomogiteeeeeee

рекомендуемые вопросы

Helpful Links

Helpful Social