Сор 1 ,по информатике 6 класс "представление информации "
с ответами ​

1. нужно найти сколько бит весит обна буква.

64 это 6 бит информации.

2. i=6*20= 120 бит

мы умножыли биты на количество используемых букв.

вот и

var s: string; begin  writeln('как вас зовут? ');       readln(s);       case s of        'вася': s: ='василий';         'петя': s: ='петр';         'люся': s: ='людмила';         'миха': s: ='михаил';         'пупс': s: ='пупондий';             else s: ='я с вами не знакома';       end;             writeln(s);       readkey; end.

var a: array[1..100,1..100] of integer;

i,j,s,n,k: integer;

begin

  read(n);

  for i: = 1 to n do

      for j: = 1 to n do begin

          read(a[i,j]);

          if i mod 2=0 then begin

                k: =k+1;

                s: =s+a[i,j];

          end;

      end;

      writeln(s/k);

end.

var temp: array[1..31] of integer; k,i: integer;

beginfor i: =1 to 31 do readln(temp[i]);

for i: =1 to 31 do 

if a[i]< 0 then inc(k);

writeln(k);

end.