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