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

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

Задать свой вопрос
1 ответ
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.
Есения
Спасибо большое)))
Алина
обращайся ) я все таки программер
Вера Паргина
А можете тоже самое, только не сумму, а количество делителей?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт