var x, y, i, k:Integer; begin Writeln('Vvedite 3-znachnoe chislo='); Readln(x); y:=0; k:=100; while (x<>0) do begin y:=y + (x mod 10)* k; k:=k div 10; x:=x div 10; end; Writeln('Otvet = ', y); Readln; end.
Как заработать голоса ВКонтакте? Голоса можно заработать здесь: http://vk.com/settings?act=balance. Нажмите, пожалуйста, кнопку «Получить голоса» и перейдите к варианту «Показать все способы оплаты». Отметьте кружочком «Специальные предложения» и кликните на кнопку «Перейти к оплате». Вы увидите предложения от наших рекламодателей, которые помогут Вам, выполняя несложные действия (например, заполнить анкету на сайте), заработать голоса.
Если для Вас нет на данный момент предложений, то проверьте, полностью ли заполнена Ваша страница.
