Вот точно таких же вопросов на этом сайте несколько сотен, если не тысяч
Учитываем, сколько занимает памяти каждый символ. Для этого надо знать кодировку. Если кодировка не указана, то по умолчанию считаем, что один символ занимаем один байт - восемь бит.
Перемножаем все три числа 100 страниц * 35 строк * 50 символов в строке = 175000 символов в книге, или 175000 байт в нашем случае.
Каждый байт содержит 8 бит, так что 175000 байт * 8 бит в байте = 1400000 бит
Кб содержит 1024 байта, 175000 байт / 1024 ≈ 170.9 КБайт
Мб содержит 1024 Кбайта, 170.9 Кбайт / 1024 ≈ 0.167 МБайт
program ;
var
i, a: longint;
x,
u, j,
n, m : longint;
function fdiv (a, left : longint) : longint;
var
d,
i : longint;
begin
d : = 1;
for i : = left to trunc (sqrt (a)) do
if (a mod i = 0)
then
begin
d : = i;
break;
end;
if (d < > 1)
then
fdiv : = d
else
fdiv : = a;
end;
function g (n, u : longint) : longint;
var
i : longint;
begin
i : = 0;
while (n mod u = 0)
do
begin
inc (i);
n : = n div u;
end;
g : = i;
end;
begin
assign (input, 'input.txt');
assign (output, 'output.txt');
reset (input);
read (a);
close (input);
m : = 0;
n : = 1;
i : = fdiv (a, 2);
u : = 2;
while (a > 1)
do
begin
n : = n * i;
j : = 0;
while (a mod i = 0)
do
begin
inc (j);
a : = a div i;
end;
if (j > m)
then
begin
m : = j;
u : = i;
end;
i : = fdiv (a, i + 2);
end;
x : = 1;
while (g (n * x, u) * n * x < m)
do
inc (x);
n : = n * x;
rewrite (output);
write (n);
close (output);
end.