Question

Дано число, если оно четное вычесть 1, иначе прибавить 1. Решить на языке Паскаля

Answer 1

Ответ:

Вот ответ

Объяснение:

program homework;

var a:integer;

begin

read(a);

if a mod 2=0 then a:=a-1 else a:=a+1;

writeln(a);

end.

Answer 2

Вот пример программы на языке Паскаль, которая выполняет описанное вами действие:

pascalCopy code
program EvenOddOperation;

var
  number: integer;

begin
  // Ввод числа
  write('Введите число: ');
  readln(number);

  // Проверка на четность
  if number mod 2 = 0 then
    number := number - 1
  else
    number := number + 1;

  // Вывод результата
  writeln('Результат: ', number);

  // Задержка перед завершением программы (для отображения результата в консоли)
  readln;
end.

Эта программа сначала запрашивает у пользователя ввод числа, затем проверяет его на четность. Если число четное, то отнимается 1, иначе прибавляется 1. Результат выводится на экран. Задержка readln используется для того, чтобы программа не завершилась сразу после вывода результата, позволяя вам увидеть результат в консоли перед закрытием программы.