Question

НУЖНО СДЕЛАТЬ В ПРОГРАММЕ ПАСКАЛЬ.ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Задача № 2:
Ввести 2 числа. Если их сумма больше 50, прибавить к первому 10, иначе вычесть из второго 20. Вывести на экран оба числа.
Задача № 3: 
Ввести число. Если оно четное, вычесть из него 4, если нечетное - умножить на 2.

Answer 1

Ответ:

Задача №1

program ex1;

var x, y:integer;

begin

   writeln ('Введите x, y');

   readln(x, y);

   if x + y > 50 then x:=x+10 else y:=y-20;

   write(x, y);

end.

Задача №2

program ex2;

var x:integer;

begin

   writeln('Введите число');

   readln(x);

   

   if x mod 2 = 0 then x:=x-4 else x:=x*2;

   writeln(x);

end.

Объяснение: