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

 

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.

Из 1 и 4 следует, что рыбаков и перлов - не повара из 1 и 5 следует, что они не могут быть одновременно врачом и учителем. из 1 и 6 следует, что они не могут быть одновременно врачом и водителем. из двух предыдущих выводов следует, что рыбаков и перлов - учитель и водитель (кто есть кто - не важно), а шмаков и немцов - врач и повар. допустим, шмаков врач. тогда согласно 7 он старше учителя и водителя, т.е. рыбакова и перлова, что противоречит 2. значит, шмаков не врач, а повар. в таком случае немцов - врач.

// №1 //pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) const m = 31; var a: array[1..m] of integer; i,s,n: integer; begin   for i: =1 to m do begin       a[i]: =random(-20,20);       if a[i]> 0 then begin           s: =s+a[i]; n: =n+1;       end;   end;   println('температуры за месяц : '); a.println;   writeln('средняя в оттепель : ',s/n: 0: 3); end. тестовое решение: температуры за месяц : 16 7 19 -7 -18 6 12 -18 -5 -10 8 -4 10 4 10 5 -3 14 -7 -8 2 7 4 -7 18 4 -12 -5 -9 7 -5 средняя в оттепель : 9.000 // №2 //pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) const m = 10; var a: array[1..m] of integer; i,s,n: integer; begin   for i: =1 to m do begin       a[i]: =random(-20,20);       if i mod 2< > 0 then s: =s+a[i];   end;   writeln('исходный массив : '); a.println;   for i: =1 to m do       if i mod 2=0 then a[i]: =s;   writeln('сумма на нечетных местах  = ',s);   writeln('изиененный массив : '); a.println; end. тестовое решение: исходный массив : -6 15 5 -11 18 4 17 -9 -15 -16 сумма на нечетных местах = 19 изиененный массив : -6 19 5 19 18 19 17 19 -15 19