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

Question

Информатика

Греция

22 октября, 17:37

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

+4

Ответы (1)

Знаете ответ на вопрос?

Доса · 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.