Составьте программу, находящую количество делителей числа Х. Число Х введите с клавиатуры. (Pascal ABC (не net))
21
ОТВЕТЫ
Program A;var X,sum,i: integer;beginsum := 0 ;Readln(X);for i:= 1 to X doif (X mod i = 0) then sum := sum + 1;Writeln(sum);end.
Var n, i, sum: integer; //Описание переменных Begin //Начло программы writeln (Введите число); //Диалог с пользователем readln(n); //Считывание числа sum := n; //Присваивание сумме значение самого числа (само число - уже делитель самого себя) writeln(Делители числа:); //Диалог с пользователем for i := 1 to n div 2 do //Цикл For от до половины n if (n mod i) = 0 then begin //Если число делится на i, то выводим write(i, ); sum := sum + i; //К значению суммы прибавляем делитель end; //Конец условного оператора if writeln(n); //Вывод самого числа, т.к. оно тоже делитель writeln(Сумма делителей: ,sum); //Вывод суммы делителей End.
234
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Umgar
Как решить эту задачу Запрос. Страницы(в тыс) Баран | ...
2019-01-22 12:07:57
Юрий
При какой цене топлива на дорогу из Каневской до ...
2019-01-22 12:07:43
Флавий
Как бы вы назвали цвет, заданный на веб-странице в ...
2019-01-22 12:07:37
Agaris
Напишите программу в которой определяется сумма S всех целых ...
2019-01-22 12:07:31