Составьте программу нахождения количества делителей числа n (значение n вводится ?
Составьте программу нахождения количества делителей числа n (значение n вводится ?? клавиатуры)
Гость
Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы