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

Question

Информатика

Федос

8 мая, 04:57

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

+3

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