Question

1. дано целое число а. если значение а > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. написать программу для решения этой . программа должна иметь дружественный интерфейс. протестировать программу для a=3, a=0, a=-12. 2. даны два действительных числа x и y, не равные друг другу. заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. программа должна иметь дружественный интерфейс. программы на паскале

Answer 1

1.
Var A : Integer;
Begin
  Write('Введите число A: '); Readln(A);
  If A>0 then A:=A+1 else A:=A-1;
  Writeln('Новое значение числа A: ',A);
end.

2.
Var A,B,c : Real;
Begin
  Write('Введите число A и B: '); Readln(A,B);
  c:=(A+B)/2;
  If A<B then
  Begin
   B:=A*B*2;
   A:=c;
  end else
   Begin
     A:=A*B*2;
     B:=c;
   end;
  Writeln('Новые значения A и B: ',A:6:2,B:6:2);
end.