На вход программе подается натуральное число n (меньше или равно) 30000. Выведите количество делителей числа n, включая 1 и само число n

code: #delphi
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var n,i,r:integer;
 
begin
   r:=0;
   WriteLn('vvedi n');
   ReadLn(n);
   WriteLn;
      for i:=1 to n do
           if n mod i =0 then
            begin
             WriteLn(i,' ');
             r:=r+1;
            end;
   WriteLn('chislo deliteley=',r);
   ReadLn;
end.

автор: Arriba

Поделиться:

Похожие статьи: