Question

Дано целое число.Указать какое это число положительное или отрицательное. Заменить это число на 71 ,если это число равно 35.уменьшить это число на 23, если оно меньше 35.Не изменять это число если оно больше 35

Answer 1

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadReal('Введите число:');
  if n>0 then Writeln('Число положительное')
  else if n<0 then Writeln('Число отрицательное');
  if n=35 then n:=71
  else if n<35 then n-=23;
  Writeln('Результат: ',n)
end.