Найти числа из промежутка от А до В, у которых больше всего делителей

@Freshorange · Регистрация: 11.12.2015

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

Найти числа из промежутка от А до В, у которых больше всего делителей.

@Puporev · 31.12.2015, 09:24

Pascal

uses crt;
function KolDel(n:integer):integer;
var i,k:integer;
begin
k:=2; //1 и само число
for i:=2 to trunc(sqrt(n)) do //остальные делители
if n mod i=0 then inc(k,2);
if frac(sqrt(n))=0 then dec(k);//если число полный квадрат, то минус 1
KolDel:=k;
end;
var a,b,i:longint;
    mx:integer;
begin
repeat
writeln('Ведите интервал вычислений b>a');
readln(a,b);
until b>a;
mx:=1;
for i:=a to b do
if KolDel(i)>mx then mx:=KolDel(i);
writeln('Максимальное количество делителе=',mx,' имеют:');
for i:=a to b do
if KolDel(i)=mx then write(i,' ');
end.

@Freshorange 0 / 0 / 0 Регистрация: 11.12.2015 Сообщений: 40
		1
	Найти числа из промежутка от А до В, у которых больше всего делителей 31.12.2015, 01:38. Показов 5663. Ответов 1 Метки нет (Все метки) Найти числа из промежутка от А до В, у которых больше всего делителей. 0

	31.12.2015, 09:24

Найти числа из промежутка от А до В, у которых больше всего делителей

Решение