34 - <span>100010 - 2 еденицы</span>
<span>25 - <span>11001 - 3 еденицы</span></span>
307200 пикселей на экране
палитра 256 цветов это 1 байт информации
следовательно 307200 * 1 = 307200 байт для отображения одной страницы
512 * 1024 = 524800 байт максимальный поддерживаемый объем видеопамятью
524800 / 307200 = 1,70833333333333
криво с дробями как-то выходит. 1.7 экранов :D
Var a: integer;begin read(a); if (a >= 1) and (a <= 31) then write(a,' ',1);<span> if (a >= 32) and (a <= 59) then write((a - 31),' ',2);</span><span> if (a >= 60) and (a <= 90) then write((a - 59),' ',3);</span><span> if (a >= 91) and (a <= 120) then write((a - 90),' ',4);</span><span> if (a >= 121) and (a <= 151) then write((a - 120),' ',5);</span><span> if (a >= 152) and (a <= 181) then write((a - 151),' ',6);</span><span> if (a >= 182) and (a <= 212) then write((a - 181),' ',7);</span><span> if (a >= 213) and (a <= 243) then write((a - 212),' ',8);</span><span> if (a >= 244) and (a <= 273) then write((a - 243),' ',9);</span><span> if (a >= 274) and (a <= 304) then write((a - 273),' ',10);</span><span> if (a >= 305) and (a <= 334) then write((a - 304),' ',11);</span><span> if (a >= 335) and (a <= 365) then write((a - 334),' ',12);</span> readln; readln<span>end.</span>