Закодировать следующий код и написать отгадку: не цветы а вянут не ладоши а ими хлопают не бельё а их развешивают доверчивые и любопытные а еще на них можно вешать лапшу его проглатывают упорно не желая о чем-либо говорить он может быть хорошо подвешан за него тянут или дёргают его можно держать за зубами

Вот мой вариант: кодирование в шестнадцатиричном коде: ** я напишу в 16 - ом коде чтобы ответ не был слишком большим. исходный текст: не цветы а вянут - ушикодирование: 0e2c2d0e2e1e140e2f1f0e2e1b0e2e1e0e2f1b0e2f2b140e2e19140e2e1b0e2f2f0e2e2d 0e2f1c0e2f1b1416140e2d1c0e2f210e2e21 исходный текст: не ладоши а ими хлопают - ушикодирование:   0e2c2d0e2e1e140e2e2b0e2e190e2e1d0e2e2e0e2f210e2e21140e2e19140e2e210e2e2c 0e2e21140e2f1e0e2e2b0e2e2e0e2e2f0e2e190e2f2e0e2f1b1416140e2d1c0e2f210e2e2 1 исходный  текст : не бельё а их развешивают - ушикодирование:   0e2c2d0e2e1e140e2e1a0e2e1e0e2e2b0e2f2c0e2b21140e2e19140e2e210e2f1e140e2f 190e2e190e2e200e2e1b0e2e1e0e2f210e2e210e2e1b0e2e190e2f2e0e2f1b1416140e2d1 c0e2f210e2e21 исходный  текст : доверчивые и любопытные - людикодирование: 0e2c1d0e2e2e0e2e1b0e2e1e0e2f190e2f200e2e210e2e1b0e2f2b0e2e1e140e2e21140e 2e2b0e2f2e0e2e1a0e2e2e0e2e2f0e2f2b0e2f1b0e2e2d0e2f2b0e2e1e1416140e2c2b0e2 f2e0e2e1d0e2e21 исходный текст:   а еще на них можно вешать лапшу - ушикодирование: 0e2c19140e2e1e0e2f220e2e1e140e2e2d0e2e19140e2e2d0e2e210e2f1e140e2e2c0e2e 2e0e2e1f0e2e2d0e2e2e140e2e1b0e2e1e0e2f210e2e190e2f1b0e2f2c140e2e2b0e2e190 e2e2f0e2f210e2f1c1416140e2d1c0e2f210e2e21 исходный текст:   его проглатывают упорно,  не желая о чем-либо говорить   - языккодирование: 0e2c1e0e2e1c0e2e2e140e2e2f0e2f190e2e2e0e2e1c0e2e2b0e2e190e2f1b0e2f2b0e2e 1b0e2e190e2f2e0e2f1b140e2f1c0e2e2f0e2e2e0e2f190e2e2d0e2e2e0e1b2c140e2c2d0 e2e1e140e2e1f0e2e1e0e2e2b0e2e190e2f2f140e2e2e140e2f200e2e1e0e2e2c160e2e2b 0e2e210e2e1a0e2e2e140e2e1c0e2e2e0e2e1b0e2e2e0e2f190e2e210e2f1b0e2f2c14161 40e2d2f0e2e200e2f2b0e2e2a исходный текст:   он может быть хорошо подвешан - языккодирование: 0e2c2e0e2e2d140e2e2c0e2e2e0e2e1f0e2e1e0e2f1b140e2e1a0e2f2b0e2f1b0e2f2c14 0e2f1e0e2e2e0e2f190e2e2e0e2f210e2e2e140e2e2f0e2e2e0e2e1d0e2e1b0e2e1e0e2f2 10e2e190e2e2d1416140e2d2f0e2e200e2f2b0e2e2a  исходный текст:   за него тянут или дёргают - языккодирование: 0e2c200e2e19140e2e2d0e2e1e0e2e1c0e2e2e140e2f1b0e2f2f0e2e2d0e2f1c0e2f1b14 0e2e210e2e2b0e2e21140e2e1d0e2b210e2f190e2e1c0e2e190e2f2e0e2f1b1416140e2d2 f0e2e200e2f2b0e2e2a   исходный текст:   его можно держать за зубами - языккодирование: 0e2c1e0e2e1c0e2e2e140e2e2c0e2e2e0e2e1f0e2e2d0e2e2e140e2e1d0e2e1e0e2f190e 2e1f0e2e190e2f1b0e2f2c140e2e200e2e19140e2e200e2f1c0e2e1a0e2e190e2e2c0e2e2 11416140e2d2f0e2e200e2f2b0e2e2a ============================================

Все решение в рисунке

program xxx;

    var i, k : integer;

                  a : array [1..10] of real;

begin

  write('введите элементы массива а: ');

  for i: =1 to 10 do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to 10 do

        write(a[i]);

  k: =0;

  for i: =1 to 9 do

      if a[i]< > a[10] then k: =k+1;

  writeln('элементов отдичных от последнего -', k);

  readln

end.