Question

Определить, является ли вводимое число четным. Если оно четное то к нему прибавить 1,если число не четное,то к нему прибавить 2 и результат вывести на экран. Паскаль

Answer 1

var number: integer;

begin

 readln(number);

 if number mod 2 = 0 then

   number := number + 1

 else number := number + 2;

 writeln(number);

end.

Answer 2

Для решения этой задачи на языке Паскаль, вам понадобится простая процедура или функция. Вот пример кода, который выполняет требуемые операции:

pascalCopy code
program CheckEvenAndAdd;

var
  userInput, result: Integer;

function IsEven(num: Integer): Boolean;
begin
  IsEven := num mod 2 = 0;
end;

begin
  Write('Введите число: ');
  Readln(userInput);

  if IsEven(userInput) then
    result := userInput + 1
  else
    result := userInput + 2;

  Writeln('Результат: ', result);
end.

Пользователь вводит число, которое сохраняется в переменной userInput. Затем используется функция IsEven для проверки, является ли число четным. Если число четное, к нему прибавляется 1, иначе - 2. Результат выводится на экран.

Обратите внимание, что я предполагаю, что вводимые пользователем значения будут целыми числами. Если возможен ввод дробных чисел или чисел с плавающей запятой, вам следует использовать соответствующий тип данных, например Real вместо Integer.