Question

Даны два целых числа. Программа должна вывести число 1, если первое число больше второго, число 2, если второе больше первого или число 0, если они равны. Ввод 4,5 Вывод 2

Answer 1

var

  a, b:real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  if a > b then

    writeln('1')

  else

    if a < b then

      writeln('2')

    else

      writeln('0');

end.

 

Answer 2

var a,b:integer;

begin

readln(a,b);

if (a>b) then writeln('1') else begin

  if (b>a) then writeln('2') else begin

    if (a=b) then writeln('0');

  end;

end;

end.