Question

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

Answer 1

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.