1. 

   [LP] New Member

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

    

   [LP], 8 янв 2010

   #1
2. 

   Mikey New Member

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

    

   Mikey, 8 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня