Procedure swap(var a, b: real);
var t: real;
begin
t := a;
a := b;
b := t;
end;
var a, b, c: real;
begin
readln(a, b, c);
if (a > b) then swap(a, b);
if (b > c) then swap(b, c);
if (a > b) then swap(a, b);
writeln(a, ' ', b, ' ', c);
<span>end.
===========================
Без процедур:
var a, b, c, t: integer;
begin
readln(a, b, c);
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
if (b > c) then
begin
t := b;
b := c;
c := t;
end;
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
writeln(a, ' ', b, ' ', c);
<span>end.</span></span>
Если что-то непонятно - спрашивай)
Количество информации = log(2)256 = 8 бит (256 = 2^8)
<h3>var a:array [1..100001] of longint;
</h3><h3>r,k:real;
</h3><h3>s:longint;
</h3><h3>begin
</h3><h3> t:=1;k:=0;
</h3><h3> while t<>0 do
</h3><h3> begin
</h3><h3> read(t);
</h3><h3> inc(k);
</h3><h3> a[k]:=t;
</h3><h3> s:=s+t;
</h3><h3> end;
</h3><h3> r:=s/k;
</h3><h3> if a[k+1 div 2]>r then writeln('Yes') else writeln('No');
</h3><h3>end.
</h3><h3 />