Дано целое число.Указать какое это число положительное или отрицательное. Поменять это

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

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

begin
  var n:=ReadReal('Введите число:');
  if ngt;0 then Writeln('Число положительное')
  else if nlt;0 then Writeln('Число отрицательное');
  if n=35 then n:=71
  else if nlt;35 then n-=23;
  Writeln('Итог: ',n)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт