Question

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

Answer 1

var
x,y,z:integer;

function min(a,b:integer) : integer;
begin
if a<b then
min:=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.

Answer 2

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

Answer 3

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