Вdelphi 7 даны различные действительные числа x, y, z, d. найти max (min (x, y), min (x, z), min (z,

Var
    x, y, z, d: real;

function min(a, b: real): real;
begin
    if a < b then
        min := a
    else min := b;
end;

function max(a, b: real): real;
begin
    if a > b then
        max := a
    else max := b;
end;

begin
    readln(x, y, z, d);
    writeln(max(min(x, y), max(min(x, z), min(z, d;
end.

ответ: 32+5*64+10*128 = 32+320+1280   = 1632

- количество таких слов 2^5 = 32

y - количество таких слов 2^4*4 = 16*4 = 64

xxxyx - количество таких слов 2^4*4  =  16*4 = 64

xxyxx - количество таких слов 2^4*4  =  16*4 = 64

xyxxx - количество таких слов 2^4*4  =  16*4 = 64

y - количество таких слов 2^4*4  =  16*4 = 64

xxxyy - количество таких слов 2^3*4^2  =  8*16 = 128

xxyyx - количество таких слов 2^3*4^2  =  8*16 = 128

xyyxx - количество таких слов 2^3*4^2  =  8*16 = 128

yyxxx - количество таких слов 2^3*4^2  =  8*16 = 128

xxyxy - количество таких слов 2^3*4^2  =  8*16 = 128

xyxyx - количество таких слов 2^3*4^2  =  8*16 = 128

yxyxx - количество таких слов 2^3*4^2  =  8*16 = 128

xyxxy - количество таких слов 2^3*4^2  =  8*16 = 128

yxxyx - количество таких слов 2^3*4^2  =  8*16 = 128

yxxxy - количество таких слов 2^3*4^2  =  8*16 = 128

когда мы были маленькие и учились в школе, у нас было невероятное количество лайфхаков, которые позволяли скрыть оценки от родителей. мы склеивали страницы дневника, вырывали их, затирали оценки лезвием, теряли дневник или имели его «черновую» и «чистовую» копии. иногда «забывали» положить дневник на стол к учителю…

в старших классах мы, уже философы, находили альтернативные варианты: замалчивали плохие оценки, но активно работали над тем, чтобы их «закрыть» хорошими, и тем самым не только вырабатывали в себе чувство ответственности, но и учились щадить нервную систему родителей.