Задача C. Делители Дано целое число N. Вам нужно определить количество его делителей Формат входных данных Единственная строка входного файла содержит целое число N (1 <= N <= 10^12) Формат выходных данных Выведите ответ к задаче
Answers & Comments
Gromdelvar n,i:integer; begin readln(n); for i:=1 to n do if n mod i = 0 then write(i,' '); readln; end.
0 votes Thanks 1
mandarinGM
Что-то неправильно можете написать полностью?
Gromdel
Вы не указали до конца формат выходных данных. И мне неизвестно, что нужно вывести. Сами делители или количество делителей. Если второе, то замените часть кода if n mod i = 0 then write(i,' ');
Gromdel
на этот if n mod i = 0 then inc(a); write(a,' ');
Answers & Comments
n,i:integer;
begin
readln(n);
for i:=1 to n do
if n mod i = 0 then
write(i,' ');
readln;
end.
write(i,' ');
write(a,' ');