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

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

Задать свой вопрос
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.
Антонина Латкарева
я же просила через While, а это через For
Коля Скатерщиков
Ваша просьба не указана в задании. Впредь, будьте внимательнее)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт