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

Question

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

Accepted Answer

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.