Это. очень смешно. папа. съел все. апельсины
Попробуй:
("А" одно из чисел последовательности, а Q кол-во нулей)
Begin
For i:=1 to n do
Read(A);
If A=0 then inc(Q);
Write(Q);
End.
1. 64х128=8,192 пикс. Выделенный объем делим на кол-во пикселей и получаем число бит на пиксел. Т.е., 3,072/8,172=0.375 байта. Т.е., примерно 3 бита. А 3 бита = 8 комбинаций (от 000 до 111). 8 цветов в палитре.
а)
var x, y: integer;
begin
write('Введите x: ');
readln(x);
write('Введите y: ');
readln(y);
y := y - x;
x := x - 2;
if x < y then
begin
y := y - x;
x := x - 2;
end;
writeln('x = ', x);
writeln('y = ', y);
<span>end.
б)
var x, y: integer;
begin
write('Введите x: ');
readln(x);
write('Введите y: ');
readln(y);
y := y + x;
x := x - 2;
if x <> 0 then
begin
y := y + x;
x := x - 2;
end;
writeln('x = ', x);
writeln('y = ', y);
<span>end.</span></span>