Var s:string;
begin
readln(s);
if odd(length(s)) then delete(s,length(s) div 2+1,1)
else delete(s,length(s) div 2,2);
writeln(s)
<span>end.</span>
1)var a,b,i:integer;
begin
readln(a,b);
for i:= 1 to 100 do
if (i mod a<>0) and (i mod b<>0) then write(i,' ')
<span> end.
2)</span>var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:= a to b do
if (i mod 7=0) xor (i mod 9=0) then k:=k+1;
write(k)<span>
end.
3)</span>var pol,i,otr,a:integer;
begin
otr:=0;
pol:=0;
for i:= 1 to 10 do
begin
readln(a);
if a>0 then pol:=pol+1;
if a<0 then otr:=otr+1
end;
if pol>otr then write('Положительных больше');
if otr>pol then write('Отрицательных больше')<span>
end.
4) </span>var i,a,b:integer;
begin
readln(a,b);
for i:= a to b do
if (i mod 3 =0) or (i mod 7=0) then write(i,' ',i,' ') else write(i,' ')
<span>end.</span>
800*600=480 000 число пикселей
480000*4=1 920 000 число пикселей на четырех страницах... .
глубина цвета 24...
24 это - 16 777 216 цветов (или 1 пиксель использует 3 байта)
1920000*3 = 5 760 000 байт = 46 080 000 бит = 5625 КБ = 5.5 МБ
Ну все же предельно просто 128 = 2^7
Значит любое число можно отгадать за 7 вопросов, и количество информации соответственно 7 бит
Домнож на 1024 и на 8 будут биты