Var sum:real; n:real; BEGIN sum:=0; n:=1; while n <= 30 do begin sum:=sum+n; n:=n+0.5; end; writeln('Сумма равна: ',sum); END.
64 символа => 2^6=64 => 6 бит/символ 7200 байт = 7200*8 = 57600 бит 57600/6=9600 символов в сообщении 9600/4/40=60 символов в строке.
http://test.edu/demo.net А дальше по таблице
<u> Уважаемые модераторы, для начала прочтите задание, а не предупреждение давать сразу! Если в этом задание нужно составить ссылку, и по таблице её разобрать по буквам, а таблицы нету, то только ссылку можно составить.</u>