Составьте программу, находящую сумму делителей числа Х. Число Х введите с клавиатуры....

0 голосов
25 просмотров

Составьте программу, находящую
сумму делителей числа Х. Число Х введите с клавиатуры. (Pascal ABC (не net)) (20 баллов)


Информатика (39 баллов) | 25 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(158 баллов)
0

Спасибо большое)))

0

обращайся ) я все таки программист

0

А сможете тоже самое, только не сумму, а количество делителей?