Дано натуральное число, подсчитать общее количество его делителей. Помогите...

Question

Дано натуральное число, подсчитать общее количество его делителей.
Помогите пожалуйста..pascal

Answer 1

Var n, i, number:integer;
begin
     readln(n);
     number := 1;                   {т.к. само число является своим делителем}
     for i := 1 to n div 2 do       {т.к. делителей больше половины чила ровно}      
     begin                               {один, который мы уже учли}
          if n mod i = 0
          then
             number := number + 1;
     end;
     writeln(number);
end.

Comments

Большое спасибо)