//pascalabc.net 3.2 сборка 1813 var n,r,i: integer; s: string; begin n: =1; while n mod 3< > 0 do n: =random(1001); writeln('рандомное число: ',n); s: =inttostr(n); while n< > 153 do begin n: =0; for i: =1 to length(s) do n: =n+round(power(strtoint(s[i]),3)); s: =inttostr(n); write(s,' '); end; end. пример работы программы: рандомное число: 255 258 645 405 189 1242 81 513 153
TatarkovTitova
24.04.2022
Используется 64 символьный алфавит его можно закодировать в 6 битах 2 в 6 степени. найдем сколько всего символов в 3 страницах для этого перемножим количество страниц на количество строк и символ. 3*40*60=4800 символов. найдем сколько занимают эти символы объем информации в битах для этого перемножим общее количество символов на объем одного символа. 4800*6=30400 бит. нам нужен ответ в байтах. переведем полученное значение в байты 30400/8=3800 байт. ответ: 3 страницы содержат 3800 байт информации.