решить номер по информатике

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

если его поставить так, чтоб краев рядом не было, куда-нибудь в центр. тогда он всегда будет вертется

a-возраст cаши

b– возраст маши

program r;

var a,b: integer;

begin

readln(a,b);

if a=b then writeln («ровесники»)else writeln( «неровесники»)

end.

алфавит состоит из 8 символов, следовательно, каждый символ кодируется 3 битами информации. в 1 байте 8 бит, значит, каждый байт содержит 2 символа при таком способе кодировки. за 1 секунду по каналу связи передается 1024 бита, из них - (1024/8)*2 = 256 бит сообщения. отсюда следует, что скорость передачи сообщения составляет 256 бит/сек (бит в секунду).