Сообщение длиной 73728 символов занимает в памяти 63 кбайт. найдите мощность алфавита, который использовался при кодировании.

63 кбайт=516096 бит i=516096 бит/73728  символов=7 n=2^7=128

// pascalabc.net 3.1, сборка 1200 от 13.03.2016 begin   var s1: =0;   var s2: =0;   for var i: =1 to 4 do begin       var a: =readlnstring('счет встречи № '+i).towords(arr(': ',' '));       s1+=strtoint(a[0]); s2+=strtoint(a[1])       end;   if s1> s2 then writeln('победила первая команда')   else       if s1=s2 then writeln('ничья')       else writeln('победила вторая команда') end. тестовое решение: счет встречи № 1 26: 17 счет встречи № 2 13 : 15 счет встречи № 3 19: 11 счет встречи № 4 14 : 16 победила первая команда

Var a : integer; begin repeat writeln('сколько метров? '); readln(a); if a < = 100 then   begin     if a < 0 then writeln('там нет леса! ') else  writeln('там посажен орех. ');   end; if a > 100 then   begin     if a < =  200 then writeln('здесь посажена яблоня');   end; if a > 200 then   begin   if a < = 300 then writeln('здесь посажен дуб.');   if a > 300 then writeln('здесь нет леса');   end; until a = 99999; end.