Question

Составить программу, которая, если введенное число четное, меняет его на противоположное(На языке Pascal)

Answer 1

program pair;

var a, b:integer;

begin

 writeln('Введите число');

 readln(a);

 if a mod 2 = 0 then

 begin  

   a := -a;

   writeln(a);

 end

 else

   writeln('Число нечетное...');

end.

Answer 2

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

pascalCopy code
program ChangeEvenNumber;

var
  num: Integer;

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

  if num mod 2 = 0 then
  begin
    writeln('Введенное число ', num, ' является четным.');
    num := -num; // Меняем знак числа
    writeln('Четное число было изменено на ', num);
  end
  else
    writeln('Введенное число ', num, ' не является четным.');

  readln;
end.

Программа сначала запрашивает у пользователя ввод числа, затем проверяет, является ли введенное число четным. Если да, то меняет знак числа на противоположный и выводит результат. Если число нечетное, то выводится соответствующее сообщение.