даны 3 действительных чила (x,y,z) . Найти MIn(x,y,z) Max(x,y,z)
вот мой варинт . Нужно написать в консоли
Код:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
x,y,z,max:real;
funcion max(a,b:real):real;
begin
if a>b then max:=a else max:=b;
end;
funcion min (a,b:real):real;
begin
if a<b then min:a else min:=b;
end;
begin
readln (x,y,z);
writeln ('max=',max(max(x,y),max(y,z)));
writeln ('min=',(min(x,y),min(y,z)));
End.
Админ: Пользуемся тегами для оформления кода!
кто знает как написать более коротко помогите )