Question

Напишите код программы, для:
y=x-5, если x>0 и y=x+10, если x<0
Можно пожалуйста подробно и ясно​

Answer 1

Program z1;

var x, y: integer;

begin

write('введи x '); readln (x);

if x>0 then y:=x-5 else y:=x+10;

writeln ('y=', y);

end.