Дано число. Если оно чётное, то увеличить его на 1, в противном случае увеличить его на 2. Помогите пожалуйста, напишите программу по английски.В Фри Паскаль.

Question

Дано число. Если оно чётное, то увеличить его на 1, в противном случае увеличить его на 2. Помогите пожалуйста, напишите программу по английски.В Фри Паскаль.

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a: integer; begin readln(a); if (a mod 2=0) then a:=a+1 else a:=a+2; writeln(a); end.