Дано число. Если оно чётное, то увеличить его ** 1, в противном случае увеличить его **...

0 голосов
99 просмотров

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


Информатика (390 баллов) | 99 просмотров
Дан 1 ответ
0 голосов

var a: integer;

begin

readln(a);

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

writeln(a);

end.

(1.4k баллов)