1)32x32=1024 точки.
2)512 байт=4096 бит.
3)<span>4096/1024 = 4 бит на каждую точку.
</span>4)2^4=16 цветов .
Var s,p,real;
begin
p:=1;
s:=0;
for var i:=8 to 35 do
if i mod 2 = 0 then begin
s:=s+i;
p:=p*i;
end;
writeln('Сумма четных = ',s,', Произведенние четных = ', p);
end.
Перестановка элементов массива "а" в обратном порядке.
Данный файл мог быть прикреплён каким либо трояном червём или же другой малварью рекомендую вылечить если не поможет удаляй
Var a:array[1..10]of real;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(10,100)/10;
write(a[i]:6);
end;
writeln();
for i:=1 to 10 do
write(sqr(a[i]):6);
<span>end.</span>