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

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

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

Question

Карион

21 апреля, 15:52

+1

Ответы (1)

Знаете ответ на вопрос?

Геша · 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.