Перед вами 4 лампочки и один выключатель и любая лампочка может загореться когда вы нажимаете на него. Если зажжется крайняя правая лампочка, сколько бит информации вы получите. ответ запишите в виде числа

мало данных для главное - размер пробоины и размер листа

program fraza;

var x,y: string;

begin

writeln('введите название животного: ');

readln(x);

writeln('введите число');

readln(y);

writeln(x, " съест ", y, ' грибов.');

end.

чесно говоря без них куда легче

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then s[i]: ='*';

  writeln(s);

end.

с ними только больше кода

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then begin

          delete(s,i,1);

          insert('*',s,i);

      end;

  writeln(s);

end.

1. а)11000110;

    б)11000001011;  

    в)1100000101,111;  

    г)2335,54;    

    д)3f5d0.

  2.а) 100000011;

      б)111110100;  

      в) 1000111001,1101;  

      г)1110111100000  

3.а) 10001111011100;  

4.а)   11000;     б) 70;     в)7е.