Среди двух переменных а и в, не применяя оператора найти наибольшее

[Stilet]

А в Паскале есть какая-нибудь функция max()?

Помоему нет.

[ulaza]

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

думаю, всё же речь идёт о том, чтобы не использовать условный оператор (IF ...THEN)

могу предложить такой вариант:

var a,b, max : integer;
begin
  WriteLn('Введите a, b');
  Readln(a,b);
  max := round(((a + b)/2) + abs(a - ((a + b)/2)));
  WriteLn('Максимальное число равно: ',Max)
end.

Спасибо большое! Думаю такое в самый раз решение!

[ulaza]

Необходимо определить n-ый член последовательности (рекурсии) фибоначи.

[Stilet]

http://www.programmersforum.ru/searc...earchid=496021
Одна тема - один вопрос.
Закрываю.