Какое количество информации содержит сообщение о том, что в лотерее выпали шары с номерами 2,13,21,43,50,63, если разыгрывалось 64 шара с номерами от 1 до 64

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.

как я поняла амур надо соединить с теми множествами в которые слово входит.

в множество слов, множество названий рек,множество слов на букву а входит 

ответ: 0,0261 килобайта

1байт=8бит, 1кб=1024байт

214/8=26.75

26.75/1024=0.0261

1кбайт=1 тысяча байтов.значит 214бит надо превратить в байты - 1байт это 8бит; 214: 8=26,75.

26,75 x 1000=26750

вообще-то, кб> байт и надо делить, а не умножать.

блок смемы не умею

var i: integer

s,n: real;

begin

  repeat

      read(n);

      if n> 0 then s: =s+n

  until n=0;

  writeln(s);

end.

var a,s: real;

i: integer;

begin

  read(a);

  repeat

      i: =i+1;

      s: =s+1/i

  until s> a;

  writeln(i,s);

end.