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

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

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

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

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

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

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