Количество делителей числа - Pascal ABC

Формулировка задачи:

Дано целое число А. Найти количество делителей данного числа.

Код к задаче: «Количество делителей числа - Pascal ABC»

textual
var n,i,j,k,max,maxn:integer;
begin
write('n=');
readln(n);
if n=1 then k:=1
else
 begin
  k:=2;//1 и само
  for i:=2 to trunc(sqrt(n)) do//считаем делители до корня из числа и умножаем на 2
  if n mod i=0 then inc(k,2);
  if frac(sqrt(n))=0 then dec(k);//если число полный квадрат, то минус 1
 end;
write('Количество делителей=',k);
end.

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ