Сколько делителей у 97

[newerow1989]

Корень зачем? А если число 96?

[Aleksandr H.]

Для 100 ведь 20 25 50 делители

[Аватар]

Корень зачем?

Что бы цикл короче был. Корень меньше деленного на 2 и на много. Только удваивать приращение счетчика, за одним исключением

[Chaffee]

Я тут по-короче программу сделал.

var a,b,c: word;
begin
c:=0;
readln(a);
for b:=1 to a do begin
  if a mod b=0 then inc(c);
  end;
  writeln(c);
  end.

[Аватар]

Ну если стояла задача как можно меньше букофф тоды да. Можно было просто для 97 в одну строку без всякого ввода writeln(2);

[Aleksandr H.]

как короче если для а=100 она сделает 100 итераций?

[Serge_Bliznykov]

 j := trunc(sqrt(z))+1;
  if j*j>z then dec(j)

я тут немножко проверил.
получается, что для любых натуральных z всегда j*j меньше или равно z
так можно быть, просто:

 j := trunc(sqrt(z));

или я чего-то важное упускаю из виду?!

Aleksandr H., а в таком случае сколько будет итераций?

 j := trunc(sqrt(z));
  m := 0;
  for i:=1 to j do if z mod i = 0 then inc(m,2);
  if (z mod j = 0) and (j*j = z) then dec(m);

[Аватар]

j := trunc(sqrt(z));

Может не прокатить, например вернув корень из 100: 9.999999... 100 к примеру, не проверял что там возвращается. Выше предлагал, что бы исключить такую ситуацию и убрать избыточность

j := trunc(sqrt(z))+1;
if j*j>z then dec(j);

[Serge_Bliznykov]

я понял.
но я проверил, вроде бы косяков с trunc(z) нет...
кстати, можно и без корня обойтись:

  m := 0;
  i:=1;
  while i*i<z do begin
     if z mod i = 0 then inc(m,2);
     inc(i);
  end;
  if (i*i = z) then inc(m);

[Dvoishnik]

Сообщение от Serge_Bliznykov

Aleksandr H., а в таком случае сколько будет итераций?

 j := trunc(sqrt(z));
  m := 0;
  for i:=1 to j do if z mod i = 0 then inc(m,2);
  if (z mod j = 0) and (j*j = z) then dec(m);

для 100 - 10 и в номинации самый быстрый алгоритм, в ожесточенной борьбе, побеждает Serge_Bliznykov