Дано натуральное число больше либо равно нулю если не отрицательное то вычесть 50 иначе...

Question

Дано натуральное число больше либо равно нулю если не отрицательное то вычесть 50 иначе вычесть 100

Comments

Какой язык?

---

Паскаль

---

И да, в условии ошибка, данно число либо равное нулю, либо больше, а ифом проверять просят на отрицательность, смысл? Или всё верно?

---

Ну тогда число больше 0

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger;
  if n>=0 then n-=50 else n-=100;
  Writeln(n);
end.

Условие некорректно. Натуральное число всегда больше нуля. Поэтому задача решена для такого условия:
"Дано ЦЕЛОЕ число. Если оно не отрицательное, то вычесть 50, иначе вычесть 100"

Answer 2

Var a:integer;
Begin
Writeln('Введите число a');
Readln(a);
If a>=0 then
a:=a-50;
Else
a:=a-100;
Writeln(a);
End.