Question

Написать программу в паскале: определить, четное число или нечетное, если четное - разделить на два и вывести результат на экран

Answer 1

Var a : integer;
begin
writeln('Введите число');
read(a);
if (a mod 2 = 0) then a:= a div 2 else a:=a;
writeln(a);
end.

Answer 2

Для определения четного числа и разделения его на два в Pascal, вы можете использовать следующий код:

pascalCopy code
program CheckEvenOrOdd;

var
  number, result: Integer;

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

  if number mod 2 = 0 then
  begin
    WriteLn('Число ', number, ' - четное.');
    result := number div 2;
    WriteLn('Результат деления на два: ', result);
  end
  else
  begin
    WriteLn('Число ', number, ' - нечетное.');
  end;
end.

Программа просит пользователя ввести число, затем проверяет его на четность с помощью операции mod 2. Если число четное, то программа выводит сообщение об этом и результат деления на два. В противном случае, выводится сообщение о том, что число нечетное.