Сколько килобайтов составит сообщение из 512 символов 32 символьного алфавита?

32  символов можно закодировать 5 битами, так как 32=2^5, тоесть 1 символ = 5 бит.  в таком случае, 512 символов = 5 бита *512=2560  бита=2560/8 байта= 320   байта

program p; var      n, i : integer;       max, imax: integer; begin      write('enter 10 numbers ');             for i : = 1 to 10 do      begin            read(n);                         if i = 1 then            begin                  max : = n;                   imax : = i;             end            else                  if n > max then                  begin                        max : = n;                         imax : = i;                   end;       end;             writeln('max = ', max);       writeln('index = ', imax);             readln; end.

одна тонкость - разность первых   2-ух чисел это из первого вычитаем второе или из второго первое?  

 

program chisla;

uses crt;

var a,b,c,d,sum: real;

begin

 

      clrscr;

      write('введите первое число: ');

      readln(a);

      write('введите второе число: ');

      readln(b);      

      write('введите третье число: ');

      readln(c);  

      write('введите четвёртое число: ');

      readln(d);

 

 

        sum: =a+b+c+d;

        if ((a-b)> d) and (sum< =80) then writeln(c,d)

              else

 

                    if (a-b)> d   then writeln(a,b,c,d)

            else

                  if  (sum< =80)  then writeln(a,b)

 

                    else    writeln(a+5,b+5,c+5,d+5);

      readkey;

end.