[pva]

Попробуй сначала на русском языке для себя выразить, что найти нужно. Пример:

Код:

если x<0, то вернём максимум, а иначе - минимум
максимум - это если x<y, то y (он ведь больше), а иначе x
минимум - это наоборот, если x<y, то x (он ведь меньше), а иначе y

То же самое, в переводе на паскаль.

Код:

function Z(x: double, y: double) : double
begin
  if x<0 then begin
    if x < y then result = y
    else result = x
  end else begin
    if x < y then result = x
    else result = y
  end 
end

Ещё такой вопрос - и не видать тебе заветного тройбана!

[nec 3540A]

А почему тройбан?
а на счет четвертого посмотрите пожалуйста, совсем непойму!

[GoDleSS]

Не уверен, что прав, т.к. не пользовал паскаль года 3 уже... Да и не люблю этот язык.

Код:

program arith_4;

 var x,epsilon,ans:real;
 var i,work:integer;

begin
 epsilon:=0.001
 x:=3.61;
 work:=1;
 ans:=0; 
 i:=1;

while work=1 do
 begin
	if ( (1-abs(sin(i+x)/exp(i*x))) < epsilon ) then
	 work:=0
	else
	begin
	 ans:=ans+sin(i+x)/exp(i*x);
	 inc(i);
	end;
 end;

 write('Program returns: ', ans);

end.

Для произведения ставим начальное значение ans:=1 и в понятном месте вместо '+' - '*'