Арифметическое выражение

[vadiprog]

Записать арифметическое виражение, значением которого является большее из двоих значений целых переменных a та b.

[gamer-25]

var
  a,b,c: Integer;
begin
  if (a > b) then c:= a
  else c:= b;
  ...
end;

[Rififi]

vadiprog

Записать арифметическое виражение, значением которого является большее из двоих значений целых переменных a та b.

a > b ? a : b;

ну записал, и чё дальше?

[Serge_Bliznykov]

для целых положительных a и b
можно воспользоваться формулой к среднему прибавить модуль разницы между любой границей и средней величиной.

на Паскаль это можно записать так:

var a,b : 0..2147483647;
   MaxVal : integer;
begin
   a := 2;
   b := 10;
   MaxVal :=round((abs(a+b)/2) + abs(a - (abs(a+b)/2)) );
   WriteLn(MaxVal);
   Readln
end.

я тут по форуму порыскал.. нашёл более красивое и правильное решение от evg_m:

вот так можно найти, даже если числа будут отрицательными (или одно отрицательным, другое положительным!)

   MaxVal := (a+b+abs(a-b)) div 2 ;