Смотри решение во вложении
1024*256/8/1024 (доводим до килобайт) = 32;
768 кбайт / 32 = 24 бит на пиксель;
2^24 = 16 777 216 цветов.
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random (10);
if a[i] mod 2 = 0 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln (k)
end.
32.
var d,b,c,y:integer;
begin
readln(d,b,c);
if d>0 then writeln(y=(1/sqrt(d))*arctan((b+c)/sqrt(d)));
if d=0 then writeln(y=(-1)/(b+c));
if d>5 then writeln(y=(1/(2*sqrt(d)))*ln(sqrt(d)));
readln;
<span>end.
Могу только этот номер:D</span>