надо найти ее математическую формулу

@satanic · Регистрация: 20.09.2010

Author24 — интернет-сервис помощи студентам

Дана программа написанная на языке Turbo Pascal надо найти ее математическую формулу.

Pascal

Program ss;
Var:a,b,c,z:integer;
Begin
Read (a,b,c);
If a>b then 
Z:=b
If z<c then z:=c
Write (z);
End.

Результат:
3, 6, 5
5

Математическая формула: z=max(min(a,b),c))

@SuPeR XaKer · 29.11.2010, 23:20

Pascal

Program ss;
Var a,b,c,z:integer;
 
function maxx(a,b:integer):integer;
Var
 max:integer;
Begin
max:=a;
If a<b then
 max:=b;
maxx:=max;
End;
 
function minn(a,b:integer):integer;
Var
 min:integer;
Begin
min:=a;
If a>b then
 min:=b;
minn:=min;
End;
 
Begin
Read (a,b,c);
z:=maxx(minn(a,b),c);
Write('Z:=',z);
End.

	29.11.2010, 23:20