Количество делителей

AvariItigail

23 апреля 2016

Подсчитайте количество натуральных делителей числа x (включая 1 и само число; x <= 30000).

Входные данные
Вводится натуральное число x.

Выходные данные
Выведите единственное число - количество делителей числа x.

Исходный код на языке Pascal

var
  a, i, b: integer;

begin
  read(a);
  b := 0;
  for i := 1 to a do
    if a mod i = 0 then
      b := b + 1;
  writeln(b);
end.