Question

Помогите пожайлуста ) Даны два неравных числа  a и b.Меньшее из этих чисел заменить полуссумой a и b   а большее их полуразность..пожаалуйста помогите

Answer 1

program qwertr;
var a,b,c: integer;
begin 
read (a,b)
if (a<b) then
begin 
c:=(a+b)/2;
end;
else
c:=(a-b)/2;
end;
write (c);
end.

Answer 2

обращайтесь)

Answer 3

uses crt;
var a, b, c, i :integer;
begin
   clrscr;
   writeln ('Введите числа');
   readln (a, b);if a>b then
      writeln ('a = ', (a-b)/2:0:10, ' b = ', (a+b)/b:0:10);
   if a<b then
      writeln ('b = ', (a+b)/b:0:10, ' a = ', (a-b)/2:0:10);
end.

P.S. Надеюсь на благодарность и лучший ответ.