• Предмет: Информатика
  • Автор: Viktoria1109
  • Вопрос задан 10 лет назад

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

Ответы

Ответ дал: Tlalok
0

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.

 

Ответ дал: Gastiff
0

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.

Похожие вопросы