program CountDivisors;
varnum, divisors, evenDivisors: integer;
beginwriteln('Введите натуральное число:');readln(num);
divisors := 0;evenDivisors := 0;
for i := 1 to num dobeginif num mod i = 0 thenbegindivisors := divisors + 1;
end;
writeln('Количество делителей: ', divisors);writeln('Количество четных делителей: ', evenDivisors);
end.
program CountDivisors;
var
num, divisors, evenDivisors: integer;
begin
writeln('Введите натуральное число:');
readln(num);
divisors := 0;
evenDivisors := 0;
for i := 1 to num do
if i mod 2 = 0 thenbegin
if num mod i = 0 then
begin
divisors := divisors + 1;
evenDivisors := evenDivisors + 1;
end;
end;
writeln('Количество делителей: ', divisors);
writeln('Количество четных делителей: ', evenDivisors);
end.