Составить программу для нахождения для данного натурального ...
Составить программу для нахождения для данного натурального числа сумму его чётных делителей
Есть ответ
12.12.2022
523
Ответ
Ответ:
var
a,i,res: integer;
begin
writeln('Введите число');
readln(a);
for i:=1 to a do
begin
if i mod 2=0 then
begin
if a mod i=0 then res:=res+i;
end;
end;
writeln(res);
end.
Объяснение:
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022
