Question

Дано цело число. Если оно является положительным , то вычесть из него 8 ; если отрицательным , то прибавить к нему 6;если нулевым , то заменить его на 10 . Вывести полученное число. Помогите пожалуйста ​

Answer 1

Ответ:

Program numberphile;

var x:integer;

begin

read(x);

if x>0 then  

 x:=x-8 else if x<>0 then

 x:=x+6;

if x=0 then

 x:=10;

writeln (x)

end.

Объяснение:

Язык Pascal ABCNet