<span>uses robot;
begin
task('if2');
if wallfromright then
begin
left;paint;down;right;paint;up;paint;up;paint;down;
end
else begin
paint;left;paint;down;right;paint;right;up;paint;left;
end;
end.</span>
1) 1 бит инф.
2) 5 двоич. разрядов, т.к. 2^5=32
<span>Первая:
</span>
var
x,y,z:real;
begin
readln(x);
y:=x+2.3;
z:=y/1.2;
writeln(x+y+z);
end.
<span>Вторая:
vara,b:real;beginreadln(a);readln(b);writeln('Периметр: ', 2*(a+b));writeln('Площадь: ', a*b);end.
Третья:
varv1,v2,s,t:real;beginreadln(v1);readln(v2);readln(s);readln(t);writeln((v1*t)+(v2*t)+s)end.</span>
В предложении 51 символ считая с пробелами
51*16=816 бит
ответ 1) 816 бит
1) величина: цвет волос значение: рыжеволосый
2) величина: вес значение: 7 кг
3) величина: материал значение: Фарфоровая
4) величина: страна изготовления значение : Япония
5) величина: объем, значение: Большой
6) величина: размер значение: 17 дюймов