Запишите на языке паскаль следующую команду: если х четное,то уменьшите его на 1 иначе увеличьте в 2 раза (напиши только ветвление,)

zar26 zar26    3   14.03.2019 18:00    1

Ответы
МарияМяуМяу МарияМяуМяу  25.05.2020 09:11

var a,b,c:longint;

begin

readln(a);

if a mod 2=0 then

a:=a-1

else a:=a*2;

writeln(a);

end.

ПОКАЗАТЬ ОТВЕТЫ
Westix Westix  25.05.2020 09:11

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

else x:=2*x;

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика