Составьте программув Паскале, находящую значения максимумов и минимумов. Created by КотЭюшка. informatika-ru

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

August 2022 1 1 Report

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

Answers & Comments

xDmitryINFO 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.

КотЭюшка а откуда авс взялись?

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

КотЭюшка спасибо больше!