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

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

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

Question

Нинуся

22 июня, 16:29

+2

Ответы (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.