1) Пусть дано целое число i. Требуется оставить его без изменения, если оно делится на 2, и вычесть из него 1, если это не так

Question

Любуся

1 июня, 05:50

+5

Ответы (1)

Знаете ответ на вопрос?

Ваня · Answer 1

Var

i: integer;

begin

readln (i) ;

if i mod 2 = 0 then

writeln (i) ;

else

writeln (i-1) ;

end