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

Question

Информатика

Ладя

9 марта, 18:16

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

+4

Ответы (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.