[Hannibal]

y={1,если a<b<c
2,если a=b=c
3,если b<a<c
0,в других случаях
Все это одна система.Нужно решить с оператором case в delphi

[friz]

тут надо if .. case по-моему тут извращение

[Hannibal]

надо и if и case.if я уже сделал а вот с case не могу

[friz]

через case это не решить

[Hannibal]

но задача стояла такова

[Asinkrit]

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

через case это не решить

Почему не решить? Просто это извращение.

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  A, B, C, Y: Integer;

begin
  Write('A = ');Readln(A);
  Write('B = ');Readln(B);
  Write('C = ');Readln(C);

  Y:=0;
  case (A < B) of
  true:
    case (B < C) of
    true: Y:=1;
    end;
  false:
    case (A = B) of
    true:
      case (B = C) of
      true: Y:=2;
      end;
    false:
      case (A > B) of
      true:
        case (A < C) of
        true: Y:=3;
        end;
      end;
    end;
  end;

  Writeln('Y = ',Y);
  Readln;
end.

[Hannibal]

спасибо огромное