1. даны два действительных числа х, у. найти max(min(x-y, y), x).

может быть, я тебя не так понял. значит max(y,x) означет что надо вычислить что больше 'x' или 'y'? соответственно и min.

var x,y,max,min: integer;

begin

writeln('введите x,y через пробел');

read(x,y);

if x-y> y then min: =y else min: =x-y;

{если х-у> y тогда переменной min присваеваем значение y, в другом случае min присваеваем значение x-y(если "=" тоже, потому что значения будут одинаковы)}

if min> x then max: =min else max: =x; {примерно также}

writeln(max);

end.

если что - пиши в личку.

удачи!

с cd-r информацию нельзя удалить, можно только добавить. с cd-rw- можно удалить.

имя       возраст     занятие

оля         13             пение

петя         14           баскетбол

вася         13             хоккей

катя         15             танцы

коля         11         баскетбол

серёжа     11           футбол