Уменьшите данное число (х) в 2 раза если оно четное!информатика

Question

Уменьшите данное число (х) в 2 раза если оно четное!информатика

Comments

В паскале?

Answer 1

Var
  x:integer;
begin
  readln(x);
  if x mod 2=0 then x:=x div 2;
  writeln(x);
end.