Var s, n: integer; begin
s := 0;
n := 0;
while 2*s < 111 do
begin
s := s + 8;
n := n + 2
end;
writeln(n) end

Відповідь:

...я ще маленьким любив залишатися на ніч з дідусем. Таких зірок не було більше ніде, та й неба такого я більше не бачив. Пам'ятаю, я збирав суху траву і всякі дрібні гілочки, щоб розвести вогонь. Спочатку він був маленький, як пуп'янок маку, та розгортаючись, ставав великою полум'яною квіткою. Чай, варений в казанку на вогні, трошки підчерствий  хліб з зеленою цибулькою і пахнючими помідорами — ось найсмачніша їжа у світі.  Вогонь навіває спокій та безпеку, та раптом Що це? Гуркіт, страшенний гуркіт і чиєсь гучне дихання. Хто це, вороги наступають? Та ні, то лише кінь, син степів і невловима тінь свободи.

Пояснення:

Відповідь:

===

===

321===

= =42 =

Пояснення:

2A=2*16^1+10*16^0=2*16+10=32+10=42 - основание 10

основание 8 2А=42=5*8^1+2*8^0=52

основание 2 2А=42=52=32+8+2=1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+0*2^0=101010

Последння строка имеет вид

101010  52  42 2А

Основание 10

321=256+65=256+64+1=1*16^2+4*16^1+1*16^0=

321=320+1=5*64+1=5*8^2+0*8^1+1*8^0=

321=256+64+1=2^8+2^6+2^0=1*2^8+0*2^7+1*2^6+0*2^5+0*2^4+0*2^3+0*2^2+0*2^1+1*2^0=

321===

Основание 8

=1*8^2+2*8^1+7*8^0=1*64+2*8+7*1=64+16+7=

==64+8+4+2+1=2^6+2^4+2^2+2^1+2^0=1*2^6+0*2^5+1*2^4+0*2^3+1*2^2+1*2^1+1*2^0=

===64+16+7=5*16^1+7*16^0=

===

Основание 2

=1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+0*2^0=1*32+0*16+1*8+0*4+1*2+0*1=32+8+2=

==5*8+2=5*8^1+2*8^0=

===2*16+10=2*16^1+10*16^0=2*16^1+A*16^0=

===