Составьте программув Паскале, находящую значения максимумов и минимумов

Question

Составьте программув Паскале, находящую значения максимумов и минимумов

---

Answer 1

Var
x,y,z:integer;

function min(a,b:integer) : integer;
begin
if amin:=a
else
min:=b;
end;

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

begin
readln(x,y,z);
writeln( min( max(x,y,2*z),min(y,z) )/(min(x,y)*min(x,y)) );
end.

Comments

а откуда авс взялись?

---

a.b.c - это локальные переменные внутри функции

---

спасибо больше!