<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
for var ii := 0 to (29 - 1) div 4 do
begin
var i := 1 + 4 * ii;
var (s, i2) := (0.0, i * i);
for var j := 2 to i * i + 5 do
s += Sin(Pi * i / (i2 + j * j));
Writeln(i:2, s:20:15)
end
end.
Можно заменить на
read(x1,y2,x3,x4);
16 цветов кодируются 4 битами (2^4=16), т. е. при 256 Кб (килобит) может быть адресовано 256/16=16 К 16-цветных пикселей. Количество пикселей в экране будет В*Г (В - вертикальное разрешение, Г-горизонтальное) . При указанном соотношении 1,33 (4:3) будет верным равенство В*Г=(4/3)*В^2. Тогда В=Кв. Корень [(3/4)*16384/C] (16К=16384, С-количество страниц) . При С=1 выходит В=110.85... Ясное дело, вертикальное разрешение должно быть целым, т. е. это будет 110 или 111. Поскольку Г=В*4/3=147.8...,и горизонтальное разрешение тоже должно быть целым, выходит 147 или 148. Т. е. возможны разрешения 147*111 (всего 16317 пикселей из 16384 возможных) либо 148*110 (16280 пикселей) При С=2 выйдет В=78.38...,Г=104.51...,т. е. возможно разрешение 105*78 (всего 8190 пикселей из 8192 возможных) . Для разрешения 104*79 не хватит памяти, поскольку 8216>8192. При С=4 выйдет В=55.42...,Г=73.9...,т. е. возможны разрешения 74*55 (всего 4070 пикселей из 4096 возможных) или 73*56 (4088 из 4096).