Найти все числа в диапазоне от M до N, имеющие ровно k делителей. Функция: количество делителей заданного числа

@Кейт1 · Регистрация: 04.06.2012

Студворк — интернет-сервис помощи студентам

Найти все числа в диапазоне от M до N, имеющие ровно k делителей. Функция: количество делителей заданного числа

Всем привет. Помогите,пожалуйста очень вас прошу!

@CodeR · 05.06.2012, 17:21

Pascal

Var i,k,n,m:integer;
Function Kol(i:integer):integer;
Var k,j:integer;
Begin
    k:=0;
    For j:=1 to i  do
     if i mod j = 0 then inc(k);
    Kol:=k;
End;
Begin
     Repeat 
     write('Введите N and M: ');readln(n,m);
     Until n<m;
     write('Введите k: ');readln(k);
     For i:=n to m do
      if Kol(i)=k then write(i:3);
End.

@Кейт1 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 27
		1
	Найти все числа в диапазоне от M до N, имеющие ровно k делителей. Функция: количество делителей заданного числа 05.06.2012, 13:25. Показов 4713. Ответов 1 Метки нет (Все метки) Найти все числа в диапазоне от M до N, имеющие ровно k делителей. Функция: количество делителей заданного числа Всем привет. Помогите,пожалуйста очень вас прошу! 0

Опции темы

Найти все числа в диапазоне от M до N, имеющие ровно k делителей. Функция: количество делителей заданного числа

Решение