Question

составьте программу нахождения количества делителей числа n (значение n вводится с клавиатуры)

Answer 1

uses crt;
Var x, y, k:integer;
procedure delit;
begin  k:=0;  
writeln('Делители числа ', x, ':');  
for y:=1 to x do  if x mod y=0 then
begin
write( y, ' ');  
k:=k+1
end;  
writeln('Количество делителей числа ', x, ' равно ', k);
end;
begin clrscr;  
writeln ('Введите число: ');  
readln (x);  
delit;  
readln;
end.