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.