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.
Составить при помощи средств MS Word схему исполнителя К745ИК13.
№10 - 8 путей
1) А-Б-Е-К
2) А-Г-В-Б-Е-К
3) А-Г-В-Ж-Е-К
4) А-Г-В-Ж-К
5) А-Г-И-К
6) А-Г-З-К
7) А-Д-И-К
8) А-Г-В-Ж-З-К
№9 - 12 путей
1) А-Б-Д-Е-З
2) А-В-Б-Д-Е-З
3) А-В-Д-Е-З
4) А-В-Е-З
5) А-В-З
6) А-Г-В-Б-Д-Е-З
7) А-Г-В-Д-Е-З
8) А-Г-В-Е-З
9) А-Г-В-З
10) А-В-Ж-З
11) А-Г-В-Ж-З
12) А-Г-Ж-З
Var
a, b, c, max: longint;
begin
readln(a, b, c);
max := a;
if (b > max) then
max := b;
if (c > max) then
max := c;
writeln(max);
end.
Знайти цукерки, пакет покласти на стіл, відкрити пакет з цукерками, взяти 1 цукерку , відкрити її , з'їсти цукерку.