Question

Даны два целых числа. Программа должна вывести число 1, если первое число больше второго, число 2, если второе больше первого или число 0, если они равны.
Входные данные
Вводятся два целых числа.
Выходные данные
Выведите ответ на задачу.
Примечание
Эту задачу желательно решить с использованием каскадных инструкций if... elif... else.
Примеры
входные данные
1
2
выходные данные
2

Answer 1

\программа решения алгоритма на языке паскаль ABC.Net v3.3 сборка 1627

var  a: array [1..2] of integer;
 i, rez: integer;
begin
  for i := 1 to 2 do
readln(a[i]);
  rez := 0;
  i:=1; 
 for i:=1 to 1 do 
  if (a[i] > a[i+1]) then rez := 1 else if (a[i] < a[i+1]) then rez := 2 else rez := 0;  writeln(rez);
 end.