Нужно разбить на 4 группы по 8 бит и перевести в 10 систему
11001100
10011000
10111110
01000111
204.152.94.71
Var
n,i:integer;
s,a:real;
begin
writeln('Vvedite n:');
readln(n);
writeln('Vvedite chisla:');
s:=0;
for i:=1 to n do
begin
readln(a);
s:=s+a;
end;
writeln('Srednee arifmeticheskoe =',s/n);
readln();
end.
//PascalABC.Net 3.2
begin
write ('Гипотенуза=', max(max(readreal('Введите 3 стороны: '), readreal), readreal) );
end.