Задача C. Делители Дано целое число N. Вам нужно определить количество его делителей...

Question

Задача C. Делители Дано целое число N. Вам нужно определить количество его делителей Формат входных данных Единственная строка входного файла содержит целое число N (1 <= N <= 10^12) Формат выходных данных Выведите ответ к задаче

Answer 1

var
n,i:integer;
begin    
readln(n);    
for i:=1 to n do          
if n mod i = 0 then
write(i,' ');    
readln;
end.

Comments

Что-то неправильно можете написать полностью?

---

Вы не указали до конца формат выходных данных. И мне неизвестно, что нужно вывести. Сами делители или количество делителей. Если второе, то замените часть кода if n mod i = 0 then
write(i,' ');

---

на этот if n mod i = 0 then inc(a);
write(a,' ');

---

в варе добавьте переменную a

---

Cпасибо надеюсь поможет))