Задача в Паскале

[Stilet]

Паскаль кто учить будет, Пушкин?

var: x,y,z:real;
function max(q,w:real):real; begin if q>w then max:=q else max:=w;end;
function min(q,w:real):real; begin if q<w then min:=q else min:=w;end;

[spankyham]

Сообщение от Stilet

Паскаль кто учить будет, Пушкин?

var: x,y,z:real;

Сам после var двоеточие ставит, и ещё типа Паскаль знает

Специалисты-паскальщики, в чём смысл задачи то? Объясните словами плиз, ламо-паскальщику....

program rgr;
uses crt;
var x,y,z:real;
function max(q,w:real):real; begin if q>w then max:=q else max:=w;end;
function min(q,w:real):real; begin if q<w then min:=q else min:=w;end;

begin
   clrscr;
   textcolor(10);
   textbackground(12);
   writeln('Vvedite 4isla x,y,z:');
   readln(x,y,z);
   writeln(min(z,max(x,y)):5:2);
   readln;
end.

выдаёт мне среднее из 3х чисел.................

[Last]

Даны три числа x, y, z. Вычислить S = min(z, max(y, x))
как я понял: s принимает значение минимального из двух чисел. одно из чисел z, второе - максимальное(наибольшее) из двух y и x. Вроде так.

[Stilet]

Сам после var двоеточие ставит, и ещё типа Паскаль знает

Во-первых: если разобрался то чего спрашиваешь?
Во-вторых: Я на двух компьютерах сейчас сижу, и как цезарь несколько дел рулю, а поскольку код тебе писал с потолка ессно мог на клавиатуре чет лишнее нажать.

выдаёт мне среднее из 3х чисел

А у меня работает норм. Ввожу 5 2 9 выдает 5 как и положено

[spankyham]

Всех благодарю за помощь!!!!!!