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

2

Ответы и объяснения

  • Tlalok
  • почетный грамотей
2013-03-30T18:19:34+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.

 

2013-03-30T23:50:38+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.