Информатика, опубликовано 2018-08-22 20:22:20 by Гость
Уменьшите данное число (х) в 2 раза если оно четное!информатика
Ответ оставил Гость
Var
x:integer;
begin
readln(x);
if x mod 2=0 then x:=x div 2;
writeln(x);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.