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

Question

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

Comments

паскаль

---

паскаль

---

program useryou;

Answer 1

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
      writeln ('b = ', (a+b)/b:0:10, ' a = ', (a-b)/2:0:10);
end.

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

Comments

спасибо большое

Answer 2

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

Comments

паскаль

---

спасибо больое

---

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