Найти в диапазоне от M до N число с наибольшим количеством делителей. Функция: количество делителей заданного числа

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

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

Найти в диапазоне от M до N число с наибольшим количеством делителей. Функция: количество делителей заданного числа

Помогите,пожалуйста умоляю! (

@CodeR · 05.06.2012, 17:16

Pascal

Var i,t,n,m,max: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
     max:=0;
     Repeat 
     write('Введите N and M: ');readln(n,m);
     Until n<m;
     For i:=n to m do
      Begin
       if Kol(i)>max then
        Begin
         max:=Kol(i);
         t:=i;
        End;
       End;
     writeln('Число с макимальным кол-ом делителей ',t,' всего их ',max);
End.

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

Опции темы

Найти в диапазоне от M до N число с наибольшим количеством делителей. Функция: количество делителей заданного числа

Решение