Var N,i,summa:integer; begin Write('Введите число='); Readln(N); for i:=1 to N do begin if N mod i = 0 then Summa:=summa+i; end; Writeln('Сумма=',Summa); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
