Вкодировке windows-1251 каждый символ кодируется одним байтом. определите информационный объем в битах следуещего предложения в данной кодировке: березы желтою резьбой блестят в лузури голубой.
Var x,y,rast:array [1..100] of Integer ; n:Integer;
function maxrast(n:Integer;x,y:array [1..100] of integer): real; var i,j:integer; max:real; begin for i:=1 to n do for j:=1 to n do if sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]))>max then max:= sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j])); maxrast:=max; end;
procedure vvod(n:Integer); var i:integer; begin for i:=1 to n do begin WriteLn('Введите координату x ',i,' отрезка'); ReadLn(x[i]); WriteLn('Введите координату y ',i,' отрезка'); ReadLn(y[i]); end; end;
begin Writeln('Введите количество точек'); ReadLn(n); vvod(n); Writeln('Длина наибольшего отрезка составленного из заданных точек = ',maxrast(n,x,y)); end.
Объяснение:
Не могу дать однозначный ответ, потому что могу ошибиться в подсчёте количества символов
(нужно задание в письменном виде)
Пример: если символов 45, просто умножаешь это число на 8, полученное число записываешь в ответ
(считать нужно вместе с пробелами, и знаками препинания если таковые имеются)