Всё очень просто:
1) мощность языка (сколько символов используется) N =2^i (i - "вес" 1 символа языка в битах), то есть надо найти i,
2) подсчитаем количество символов в сообщении: 6*32*40 (штук, то есть символов),
3) переведем информационный объем сообщения в биты (так как формула из п.1 работает в битах, нам надо свести всё в одни единицы измерения), V=5Кб = 5*2^13 бит,
4) Найдем "вес" 1 символа, разделив количество бит в сообщении на количество символов: 1 символ = ((5*2^13)/(6*32*40))=(2^13)/(6*32*8)=(2^13)/(6*2^8)= (упс! 32/6) =5, 33 (3) => округляем до 6
5) В языке N=2^i = 2^6= 64 символа
<span>512 000*(4*60) = 122 880 000 бит
<span>122880000 / 8 / 1024 = 15 000 килобайт</span></span>
Надстройки, поиск решения, выделяем.
См приложение.
Var a, b, c, d, i : integer;
Begin
read(a);
read(b);
read(c);
read(d);
for i := a to b do
if (i mod c = d) then
writeln(i);
writeln();
for i := a to b do
if frac(sqrt(i)) = 0 then
writeln(i);
writeln();
for i := 2 to a-1 do
if a mod i = 0 then begin
writeln(i);
exit;
end;
End.