Дано число n.Определите количество делителей этого числа.(без остатка). Нужно составить...

Question

Дано число n.Определите количество делителей этого числа.(без остатка).
Нужно составить программу.Помогите пожалуйста,буду очень благодарна

Answer 1

Var n,d,k:longint;
Begin
Write('n = ');ReadLn(n);
Write('Делители числа ',n,':');
d:=n div 2;
if n>1 then
   Begin
   k:=1;
   Write(' ',n)
   End
else k:=0;
While d>0 do
   Begin
   if n mod d = 0 then
      Begin
      k:=k+1;
      Write(' ',d);
      End;
   d:=d-1
   End;
WriteLn;
WriteLn('Их количество: ',k);
End.

Answer 2

Var
n, i, x: integer;
begin
writeln('введите n: ');
readln(n);
write('делители числа ', n, ': ');
for i := 1 to n do
begin
if n mod i = 0 then write(i, ' ');
if n mod i = 0 then x := x + 1;
end;
writeln;
write('количество делителей числа ', n, ': ', x);
end.