Var x, b, a, c :real;beginread(a, b, c);x:= 1.2;x:= b + -sqrt(sqr(b))- 4*a*c/2*a;writeln(x);end.
Квадрат-зеленый, Круг-синий, Ромб-белый, Треугольник красного. Недавно решали по информатике.
K=256x128=2^8*2^7=2^15 пикс.;
I=16=2^4 КБ = 2^4*2^10*2^3 = 2^17 бит
i=k/I=2^17/2^15=2^2 бит = 4 бита на пиксель.
N=2^i=2^4= 16
Ответ: 16 цветов в палитре.
const k=10;
var i,n,m: integer;
a: array[1..k] of integer;
begin
n:=0;
m:=0;
for i:=1 to k do
a[i]:=random(21);
for i:=1 to k do
write(a[i],' ');
writeln();
for i:=1 to k do
begin
if ((a[i] mod 2 =0) and (a[i]<>0)) then n:=n+1;
if (a[i] mod 2 <> 0) then m:=m+1;
end;
writeln('Четных : ',n,' Нечетных : ',m);
end.