Исходя из самого вопроса - тут не важно само выражение функции.
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.
Var
a:array [1..9] of integer;
i,k,b:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=random(141)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]<=99 then
if ((a[i] div 10) mod 2)<>0 then k:=k+a[i];
if a[i]>99 then
begin
b:=a[i] div 10;
if (b mod 2)<>0 then k:=k+a[i];
end;
end;
writeln('Сумма элементов у которых вторая с конца цифра нечетная: ',k);
end.
1)128=2^7 Для хранения цвета надо 7 бит
V=2048*2048*7/8=3670016 байта=3584 кБайта=3,5 Мбайта
2) 3072*8=4096*x
x=6 бит
Число цветов=2^6=64 цвета