Использовать Робот
алг
нач
закрасить
закрас
закрас
кон
алг закрас
нач
нц пока слева свободно
закрасить
влево
кц
нц пока сверху свободно
закрасить
вверх
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока снизу свободно
закрасить
вниз
кц
кон
1 дюйм = 2,54 см
По вертикали (сторона 38,1 / 2,54 = 15 дюймов) будет 15 * 600 точек, по горизонтали 15 * 1200 точек, всего 15 * 600 * 15 * 1200 = 162 000 000 точек.
На каждую точку отводится 24 бита = 3 байта, информационный объем файла 162 000 000 * 3 байт = 486 000 000 байт = 463,5 Мб
Исходя из самого вопроса - тут не важно само выражение функции.
1. 7 { -6, -4, -2, 0, 2, 4, 6 }
Var k,n : Real;
Begin
n:=0;
k:=-6;
While k<=6 do
Begin
k:=k+2;
n:=n+1;
end;
Writeln('n = ',n);
end.
2. 7 { -2, -1.5, -1, -0.5, 0, 0.5, 1 }
Var k,n : Real;
Begin
n:=0;
k:=-2;
While k<=1 do
Begin
k:=k+0.5;
n:=n+1;
end;
Writeln('n = ',n);
end.
3. 3 { -3, -1, 1 }
Var k,n : Real;
Begin
n:=0;
k:=-3;
While k<=2 do
Begin
k:=k+2;
n:=n+1;
end;
Writeln('n = ',n);
end.
4. 7 { -1, -0.5, 0, 0.5, 1, 1.5, 2 }
Var k,n : Real;
Begin
n:=0;
k:=-1;
While k<=2 do
Begin
k:=k+0.5;
n:=n+1;
end;
Writeln('n = ',n);
end.
1) I1 = 1024 * 768 * 32 = 25165824 бит = 3145728 байт = 3072 КБайт = 3 МБайт - объем графического файла без сжатия
2) I2 = 3 * 0.8 = 2.4 МБайт - объем графического файла с коэффициентом сжатия 0.2