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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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