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

Question

Информатика

Питирим

20 января, 06:14

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

+4

Ответы (2)

Знаете ответ на вопрос?

Пафнутий · Answer 1

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.

Филюша · Answer 2

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.