Question

Необходимо ввести некоторое целое число и если оно четное уменьшить его в 2 раза.Составить программу на Паскаль

Answer 1

Var
a:longint;
begin
read(a);
if (a mod 2 = 0) then
a:= a div 2;
writeln(a);
end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая выполняет указанные вами действия:

pascalCopy code
program EvenNumber;

var
  number: integer;

begin
  writeln('Введите целое число:');
  readln(number);

  if number mod 2 = 0 then
  begin
    number := number div 2;
    writeln('Число было четным. Уменьшенное значение: ', number);
  end
  else
    writeln('Число было нечетным. Значение не изменено.');

  readln;
end.

Программа запрашивает у пользователя ввод целого числа, а затем проверяет его на четность с помощью оператора if. Если число четное (number mod 2 = 0), оно делится на 2 (number := number div 2) и выводится новое значение. Если число нечетное, выводится сообщение о том, что значение не изменено.