Составьте программу, находящую количество делителей числа х. число х введите с клавиатуры. (pascal abc (не net))

248

357

Посмотреть ответы 3

Ответы на вопрос:

Artemvmmv

Информатика

4,6(74 оценок)

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.

bekkalvina2405

Информатика

4,4(36 оценок)

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.