Информатика "Программирование разветвляющихся алгоритмов" 1. Увеличить число X ** 10,...

Question

Информатика "Программирование разветвляющихся алгоритмов"

1. Увеличить число X на 10, если оно положительное, во всех остальных случаях уменьшить на 10.

2. Увеличить число X на 5, если оно положительное.

Answer 1

var x:integer;

Begin

  read(x);

  if x>0 then x:=x+10

  else x:=x-10;

  writeln(x);

 

 

  read(x);

  if x>0 then x:=x+5;

  writeln(x);

End.