Дано натуральное число N больше 1. Найдите количество его делителей. (Программа в паскале на цикл for)

13 Мар 2020 в 19:41
184 +1
0
Ответы
1

var a,k,i: integer;

begin

readlnaaa;

k:=2;

for i:=2 to a div 2 do

if a mod i=0 then k:=k+1;

writelnkkk;

end.

17 Мар 2020 в 15:10
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир