Валфавите 128 символов сколько бит информации несет сообщение травка зеленеет!

128 - это 7 степень 2 значит 1 символ - это 7 бит сообщение состоит из 16 символов включая пробел 16*7=112 бит

n=128 --> i=7

17*7=119 бит

var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.