Question

Дано число, если оно четное вычесть 1, иначе прибавить 1. Решить на языке Паскаля

Answer 1

Ответ:

Вот ответ

Объяснение:

program homework;

var a:integer;

begin

read(a);

if a mod 2=0 then a:=a-1 else a:=a+1;

writeln(a);

end.