Question

Найти количество делителей натурального числа вводимого с клавиатуры.(КУМИР)

Answer 1

По сути, это то же самое, что и программа для разложения числа на простые множители (но сами множители не выводятся, а только их количество):

алг

нач

цел ч,к=0,п=2

вывод "Введите целое число (больше единицы): "

ввод ч

нц

если mod(ч,п)=0 то

ч:=div(ч,п)

к:=к+1

иначе

если п=2 то п:=п+1 иначе п:=п+2 всё

всё

кц при ч=1

вывод "Всего простых делителей: ",к," шт."

кон

Вот ещё вторая версия (если хотите чуть попроще). Тут цикл сделан с предусловием (его вроде сначала изучают и чаще используют), а также убрано дополнительное условие, с помощью которого выбирались нечётные делители (программа стала проще, но медленнее):

алг

нач

цел ч,к=0,п=2

вывод "Введите целое число (больше единицы): "

ввод ч

нц пока ч>1

если mod(ч,п)=0 то

ч:=div(ч,п)

к:=к+1

иначе

п:=п+1

всё

кц

вывод "Всего простых делителей: ",к," шт."

кон