Question

Запишите на языке Паскаль следующую команду: ЕСЛИ Х четное,то уменьшите его на 1 ИНАЧЕ увеличьте в 2 раза (Напиши только ветвление,пожалуйста!!)

Answer 1

var a,b,c:longint;

begin

readln(a);

if a mod 2=0 then

a:=a-1

else a:=a*2;

writeln(a);

end.

Answer 2

if x mod 2 = 0 then x:=x-1

else x:=2*x;

Answer 3

Конечно, вот как это может выглядеть на языке Паскаль:

pascalCopy code
if X mod 2 = 0 then
  X := X - 1
else
  X := X * 2;

Этот код проверяет, является ли число X четным (проверка выполняется с помощью оператора mod, который возвращает остаток от деления числа X на 2). Если X четное, то оно уменьшается на 1, иначе оно увеличивается в 2 раза.