Question

Решить по программе Паскаля:

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

If х>0    then у:=х-50     elseу:х+100

Answer 1

Я считаю, что словами написано верное условие, в приведенном фрагменте ошибка: вместо x > 0 должно быть x >= 0

var x: integer;
begin
  readln(x);
  if x >= 0 then
    x := x - 50
  else
    x := x + 100;
  writeln(x)
end.

Пример ввода:
0
Пример вывода:
-50