Program n1;
var a,sum,i: integer;
begin
sum:=0;
readln(a);
for i:=1 to a div 2 do if (a mod i) = 0 then
if i mod 2=0 then sum:=sum+i;
if a mod 2=0 then sum:=sum+a;
writeln(sum);
end.
Б =254
и так 8 раз
надеюсь что я помогла
подписывайся плийз
<span>Информатика она везде. Например обычный диск на котором хранится информация. Обычная бумага тоже имеет роль к информатики и в древности это были наскальные рисунки. Все это информация, а информатика как раз и наука об информации!</span>
К архиваторам. Это лучший и бесплатный архиватор