Владлен
4 год назад
Составьте программу, находящую сумму делителей числа Х. Число Х введите с клавиатуры. (Pascal ABC (не net))(20 поинтов)
ОТВЕТЫ
Grigorij
Oct 24, 2020
program A;var X,sum,i: integer;beginsum := 0 ;Readln(X);for i:= 1 to X doif (x mod i = 0) then sum := sum + i;Writeln(sum);end.
227
Смежные вопросы: