1) Сколько бойт содержит выражение «Движение - это жизнь!? 2) Приведите примеры информационных сообщений, которые
несут 1 бит информации.
3) Какое количество информации понадобится, чтобы записать
цифру 4?
4) Какое количество бит содержится в 2-х килобайтах, в 1-м
Мегабайте
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.