Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Если тебе нужен код, то вот он: 
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.