На этом форуме отвечают на конкретные вопросы. Фраза «я не понимаю, как решать» — это не вопрос. На вопрос «как решить задачу №X» вас отошлют к материалам сайта kpolyakov.spb.ru. За бессвязный поток слов и неспособность формулировать свои мысли — бан.

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.

Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

var x, K, A, B: integer; 
 begin 
   readln(x); 
   K:=1; 
   while x>0 do begin 
     if (x mod 10) mod 2 = 0 then  
       A:=A*10+x mod 10 
     else begin 
       K:=K*10; 
       B:=B*10 + x mod 10 
     end; 
     x:=x div 10 
   end; 
   A:=A*K + B; 
   writeln(A) 
 end.

A:=0; B:=0;

Создай свой форум на сервисе Borda.ru
Форум находится на 6 месте в рейтинге
Текстовая версия