инфа 8 класс осень надооо​

program xxx;

var s : string;

        а : integer;

begin

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

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

1) количество возможных событий равно двум. значит n=2, подставляем в формулу n=2^i,  i=1 бит.

2) находим значение информационной емкости одного символа. n=2^i, подставляя значение в формулу, получаем n=64, значит, i=6 бит-информационная емкость 1 символа, значит 5*6=30 бит.

3) i=8 бит=1 байту

(20*1024)/(32*64*1)= 10

var a,max: real;

      n,i: integer;

begin

  max: =0;

  readln(n);

  for i: =1 to n do begin 

    readln(a);

    if a> max then max: =a;

                          end;

  writeln(max);

end.

393сf - 8с.с.

32333301033 - 4с.с.

вроде правильно..