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

@mordol · Регистрация: 12.05.2015

Author24 — интернет-сервис помощи студентам

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

@Puporev · 24.10.2015, 10:49

Число положительных делителей

Pascal

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.

@mordol 1 / 1 / 2 Регистрация: 12.05.2015 Сообщений: 313
		1
	Количество делителей числа 24.10.2015, 10:33. Показов 4162. Ответов 1 Метки нет (Все метки) Дано целое число А. Найти количество делителей данного числа. 0

	24.10.2015, 10:49

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

Решение