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

nikitashvecov9p0avjh nikitashvecov9p0avjh    1   05.08.2019 07:20    2

Ответы
zirkakoi zirkakoi  03.10.2020 23:07
Var
  x:integer;
begin
  readln(x);
  if x mod 2=0 then x:=x div 2;
  writeln(x);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика