Question

Будем называть количество делителей числа n его красотой. Например, красота числа 12 равна 6. Требуется написать программу, которая по числу k (1 ≤ k ≤ 109) найдет число с максимальной красотой, не превышающее k.

Answer 1

program gt;
var k,t,max,i,h,j,l:integer;
begin
readln(k);
max:=0;
for i:=1 to k do
begin
l:=round(sqrt(i));
h:=0;
for j:=1 to l do
if(i mod j=0)then h:=h+1;
h:=2*h;
if(l*l=i)then h:=h-1;
if(h>max)then begin
max:=h;
t:=i;
end;
end;
writeln(t);
end.

Answer 2

Блин,там 10 в 9 степени.

Answer 3

тогда это решается по другому.спроси у математиков как уменьшить число проверек до минимума

Answer 4

Блин,как спросить? и где их найти?:(