Как сделать, чтобы знак в else WriteLn('<'); не выскакивал постоянно?

Рейтинг: 0Ответов: 1Опубликовано: 14.02.2015
var

a,b : integer;
begin
ReadLn(a,b);
if a = b
        then WriteLn('=');
if a >= b then WriteLn('>')

        else WriteLn('<');

end.
delphi
Источник: Stack Overflow на русском

Ответы

▲ 2

Ещё, прикола ради - можно вообще без вложенных if/else: :))

uses 
  Math;
var  M : array [-1..1] of Char = '<=>';
  a, b : integer;
begin
  ReadLn(a, b);
  WriteLn(a,' ',M[Sign(a-b)],' ',b);
  ReadLn    
end.

Или даже так:

uses
  Math;
var
  a, b : integer;
     M : array [-1..1] of String = ('less than', 'equal to', 'greater than');
begin
  ReadLn(a, b);
  WriteLn(a,' ',M[Sign(a-b)],' ',b);
  ReadLn
end.