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

dimatitov1428dimasik dimatitov1428dimasik    1   14.06.2019 02:40    0

Ответы
Анна121314151 Анна121314151  10.07.2020 21:18
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика