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

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

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

Ответы

Ответ дал: archery
0

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.

Похожие вопросы