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

[Chaffee]

Нужно составить программу: Сколько делителей у 97 считая 1 и деление на саму себя.

[newerow1989]

Всего 2!

var i,d,z:integer;
    s:string;
begin
   Write('chislo = '); Readln(z);
   If z<1 then
   begin
      Writeln('Minimal''noe chislo - 1!');
      Readln;
      Exit;
   end;
   d:=1;
   s:='1';
   For i:=2 to z div 2 do
      If z mod i=0 then
      begin
         d:=d+1;
         s:=s+', '+IntToStr(i);
      end;
   If z>1 then
   begin
      d:=d+1;
      s:=s+', '+IntToStr(z);
   end;
   Writeln('Kol-vo deliteley: ',d);
   Writeln('Spisok deliteley: ',s);
   Readln;
end.

Сойдет?

[Chaffee]

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

Всего 12

var i,j,d,m,z:integer;
    s,sm:string;
begin
   Write('chislo = '); Readln(z);
   If z<1 then
   begin
      Writeln('Minimal''noe chislo - 1!');
      Readln;
      Exit;
   end;
   m:=0;
   For i:=1 to z do
   begin
      d:=1;
      s:='1';
      For j:=2 to i div 2 do
         If i mod j=0 then
         begin
            d:=d+1;
            s:=s+', '+IntToStr(j);
         end;
      If i>1 then
      begin
         d:=d+1;
         s:=s+', '+IntToStr(i);
      end;
      If m<d then
      begin
         m:=d;
         sm:=s;
      end;
   end;
   Writeln('Kol-vo deliteley: ',m);
   Writeln('Spisok deliteley: ',sm);
   Readln;
end.

Сойдет?

Спасибо большое, только код я не совсем понял, и что-то он слишком большой.

[Аватар]

Ввод/вывод оставь, а подсчет можно так:

  m:=0; sm:=''; for i:=1 to z div 2 do if z mod i = 0 then begin Inc(m); sm:=sm+IntToStr(i)+' '; end; Inc(m); sm:=sm+IntToStr(z);

Так не большой?

[newerow1989]

Пожалуйста!

Кстати, я там подкорректировал свой пост

[Aleksandr H.]

12? А список их можете привести?

var c,i:integer;
begin
     i := trunc(sqrt(97))+1;
     c := 2;
     while i>2 do
     begin
          if 97 mod i = 0 then inc(c);
          dec(i);
     end;
     writeln(c);
     readln;
end.

[Poma][a]

Уррра! Я дождался.
А ещё можно на простые разложить и по ним количество сказать тогда совсем красота будет

И число простое, кстати..

[Аватар]

Я дождался.

Чего? Не правильно вернет для 100 например. И для 1 тоже.

[Aleksandr H.]

Сообщение от Аватар

Чего? Не правильно вернет для 100 например. И для 1 тоже.

точно. Хз почему решил что корень надо брать, Мб Новый Год. Но ведь задание было конкретно для 97 а не универсальное

var c,a,i:integer;
begin
     a := 97;
     a := abs(a);
     i := a div 2 + 1;
     c := 1;
     if a >= 2 then
     while i>=1 do
     begin
          if a mod i = 0 then begin writeln(i); inc(c); end;
          dec(i);
     end;
     writeln(c);
     readln;
end.

[Аватар]

Корень можно и нужно, для больших чисел этот способ быстрей. Просто не правильно реализовано. Примерно так делал бы

  j := trunc(sqrt(z))+1;
  m := 0;
  for i:=1 to j do begin
    if z mod i = 0 then inc(m,2);
    if i*i=z then Dec(m);
  end;

или так, что оптимальней

  j := trunc(sqrt(z))+1;
  if j*j>z then dec(j);
  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);