Вам, наверное, известно, что некоторые символы, записанные на листе бумаги, после поворота этого листа на 180ᶱ также можно прочитать, хотя и по-другому. Так, прописные латинские буквы H, I, N, O, S, X, Z и цифра 0 после поворота читаются так же, а буква M и цифра 6 «превращаются» соответственно в символы W и 9, и наоборот. Непустую строку, состоящую из прописных латинских букв и цифр, будем называть словом-перевёртышем, если она составлена только из перечисленных выше символов. После поворота листа это слово также можно прочитать, хотя и по-другому. Так, строка HOW «превращается» в строку MOH. С другой стороны, строка HOME словомперевёртышем не является. Найдите все слова-перевёртыши во входном файле. Формат входных данных. Первая строка входного файла содержит величину K (1 ≤ K ≤ 1000) – количество обрабатываемых в дальнейшем строк. Каждая из последующих K строк состоит только из прописных латинских букв и цифр, пустых строк нет. Длина одной строки не превосходит 3000 символов
Формат выходных данных. В первой строке выведите одно число – количество найденных слов-перевёртышей. Каждая из последующих строк должна содержать строку, которая получится из очередного слова перевёртыша после поворота листа бумаги. Слова-перевёртыши нужно выводить в том порядке, в котором они встречаются во входном файле. В начале и конце каждой строки не должно быть пробелов

НАПИСАТЬ ПРОГРАММУ

происхождение этого символа неизвестно. традиционная гипотеза — средневековое сокращение латинского предлога ad (означает «к», «на», «до», «у», «при»). в 2000 году джорджио стабиле, профессор сапиенцы, выдвинул другую гипотезу. в письме, написанном флорентийским купцом в 1536 году, упоминалась цена одной «a» вина, причем буква «a» была украшена завитком и выглядела как «@»; согласно стабиле, это было сокращенное обозначение единицы измерения объема — стандартной амфоры. в испанском, португальском, французском языках символ @ традиционно означает арробу — старинную испанскую меру веса, равную 11,502 кг (в арагоне 12,5 кг); само слово происходит от арабского «ар-руб», что означает «четвёрть» (четверть ста фунтов). в 2009 году испанский хорхе романсе обнаружил сокращение арробы символом @ в арагонской рукописи taula de ariza написанной в 1448 году, почти за век до флорентийского письма, изученного стабиле. похожие на @ знаки встречаются в книгах xvi—xvii веков — в частности, на заглавном листе судебника ивана грозного (1550 обычно это украшенная завитком буква «аз», обозначающая в кириллической системе счисления единицу, в случае с судебником — первый пункт. название «коммерческое at» берёт своё происхождение из счетов, например, 7 widgets @ $2 each = $14, что переводится как «7 изделий по 2$ каждое = 14$» (. at = «по»). поскольку этот символ применялся в бизнесе, он был размещён на клавиатурах пишущих машинок и оттуда перекочевал в компьютер. в этот знак был неизвестен до появления компьютера. одна из версий происхождения названия «собака»: на алфавитно-цифровых мониторах персональных компьютеров серии двк (1980-е годы) «хвостик» рисуемого на экране изображения этого символа был коротким, что придавало ему сходство со схематически нарисованной собачкой. символ @ отображался при каждом включении компьютера двк, после чего пользователю необходимо было выбрать начальный загрузчик. по другой версии происхождение названия «собака» компьютерной игрой adventure, в которой игрока сопровождал пес, которого можно было посылать с разведывательными миссиями и который обозначался символом @. другие, ныне практически не используемые в языке, варианты именования этого знака: обезьяна, обезьянка, кракозябра, масямба, ухо, плюшка, подъюза (на некоторых клавиатурах ес эвм располагалась внизу на клавише «ю»).

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.

program xxx;

    var i, n : integer;

              a, s : real;

                    b : array [1..20] of real;

begin

  writeln('введите число а=');

  readln(a);

  writeln('введите размерность массива n=');

  readln(n);

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

  for i: =1 to n do

        readln(b[i]);

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

  for i: =1 to n do

        writeln(b[i]);

  s: =0;

  for i: =1 to n do

      if b[i] > a then s: =s+b[i];

  writeln('сумма элементов =', s);

  readln

end.

как-то

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('индексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end.