паскаль 10 класс

[павел евгеньевик]

Даны 3 числа:A,B и C.если числа четные,то вывести их сумму.если числа нечетные,то вывести наибольшее и наименьшее из чисел,иначе вывести числа без изменения. Ребята,выручайте)

[Вадим Мошев]

Готов платить за решение?

[domovou]

if (not odd(a))and(not odd(b))and(not odd(c))  then writeln(a+b+c)
   else
       if odd(a) and odd(b) and odd(c) then
          begin
          if (a > b) and (b > c) then
             writeln('Max = ',a,', Min = ',c);
          if (b > a) and (a > c) then
             writeln('Max = ',b,', Min = ',c);
          if (a > c) and (c > b) then
             writeln('Max = ',a,', Min = ',b);
          if (c > a) and (a > b) then
             writeln('Max = ',c,', Min = ',b);
          if (b > c) and (c > a) then
             writeln('Max = ',b,', Min = ',a);
          if (c > b) and (b > a) then
             writeln('Max = ',c,', Min = ',a);
          end
          else writeln(a,' ',b,' ',c);