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

Question

Информатика

Муня

13 июля, 07:49

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

+2

Ответы (1)

Знаешь ответ?

Федорка · 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.