с клавиатуры читаются два целые числа, если одно число>чем второе, то вычесляется и выводится на экран их разность, иначе вычесляется и выводится на экран среднеарифметическое двух чисел

1

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

2012-02-07T20:07:05+04:00

program m; 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if a>b then writeln('  ',a-b)

else writeln((a+b)/2:2:2);

readkey;

end.