Ввести число. Если оно неотрицательное, вычесть из него 50, в противном случае прибавить к нему 100

Question

Информатика

Мирослава

19 июля, 02:24

Ввести число. Если оно неотрицательное, вычесть из него 50, в противном случае прибавить к нему 100

+2

Ответы (1)

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

Фея · Answer 1

Если тебе нужен код, то вот он:

var

x : real;

begin

write ('x = ') ; readln (x) ;

if x > 0

then

x : = x - 50

else

x : = x + 100;

writeln ('result : x = ', x:0:2) ;

end.