Question

Пожалуйста,если можно,то запись на Паскаль Дано целое число А. Увеличить его на 12, если оно нечетное.​

Answer 1

var

 a:integer;

begin

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

 readln(a);

 if a mod 2 = 1 then a:=a+12;

 writeln(a);

end.

Сделал ввод через клавиатуру. При необходимости могу исправить на случайное значение. Удачи!

Answer 2

Ответ:

var

   a, x: integer;

begin

   readln(a);

   x := a mod 2;

   if x = 1 then

       begin

           a := a +12;

           write(a);

       end

   else write('это четное число.');

end.

   

Answer 3

Конечно, можно записать программу на языке Паскаль, которая будет увеличивать целое число на 12, если оно нечетное. Вот пример такой программы:

program IncreaseIfOdd;
var
  A: integer;
begin
  write('Введите целое число A: ');
  readln(A);
  
  if A mod 2 <> 0 then
  begin
    A := A + 12;
    writeln('A было нечетным, поэтому увеличили на 12. Теперь A = ', A);
  end
  else
  begin
    writeln('A было четным, поэтому не изменили значение.');
  end;
end.

Эта программа сначала запрашивает у пользователя ввести целое число A, затем проверяет, является ли оно нечетным с помощью операции A mod 2 <> 0. Если число нечетное, то оно увеличивается на 12 и выводится новое значение. Если число четное, то программа просто сообщает об этом без изменения значения.