1. 

   cane corso New Member

   дано целое число а. выведите следующее за ним четное число. при решении этой задачи нельзя использовать условную инструкциюif

    

   cane corso, 22 янв 2010

   #1
2. 

   G3nksta New Member

   var
   a:integer;
   begin
   readln (a);
   repeat
   a:=a+1;
   until (a mod 2=0);
   writeln (a);
   end.

    

   G3nksta, 22 янв 2010

   #2

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

Пароль:

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

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