Каждая буква шифруется двузначным или трехзначгым числом, в зависимости от того гласная она или согласная (при этом не ясно двузначным кодом шифруется гласные или согласные буквы буквы е и ё объединены. среди слов "крейсер", "уловка", "шалаш", "электричество", "преподаватель", "молоко" есть слова, зашифрованные следующими последоваетльностями: 2732101263310132, 391002810039, 104281032127100, 291032810327103. каким кодом будет зашифровано слово "роутер" ?

Рассмотрим оба варианта. сог = 2, гл = 3. крейсер 16 уловка 15 электричество 31 преподаватель 31 молоко 15 сог = 3, гл = 2 крейсер 19 уловка 15 электричество 34 преподаватель 34 молоко 15 если подсчитать символы, то   2732101263310132 16391002810039 12  104281032127100 15, 291032810327103 15 подходит только первый вариант, слова соответственно    "крейсер", "шалаш",    "уловка",    "молоко" или    "крейсер",  "шалаш",    "молоко"    "уловка".,   из первых двух слов:   к = 27  р = 32  е = 101  й = 26  с = 33  ш = 39  а = 100  л = 28    104281032127100 оканчивается на 100, то есть на а, значит это уловка  у = 104  о = 103    для роутера  недостает буквы т.  из порядка гласных (0 = 103, у = 104, а в алфавите у следующая гласная за о), понятно, что т = с+1 = 34 тогда роутер = 32 103 104 34 101 32   

Через while: var a,b,c,p,i: integer; begini: =0; a: =5; b: =7; c: =9; p: =a+b+c; while (p< =100) do    begin    i: =i+1;     a: =a+2;     b: =b+1;     c: =c+1;     p: =a+b+c;     end; writeln('это будет ',i,'-й по счету треугольник'); end. через repeat: var a,b,c,p,i: integer; begini: =0; a: =5; b: =7; c: =9; p: =a+b+c; while (p< =100) do    begin    i: =i+1;     a: =a+2;     b: =b+1;     c: =c+1;     p: =a+b+c;     end; writeln('это будет ',i,'-й по счету треугольник'); end.

Var      a: array [1..100] of integer;       i,n: integer; // количество элементов в массиве  begin      writeln('введите количество элементов в массиве: ');       readln(n);       write('введите элементы массива: ');       for i: =1 to n do        read(a[i]);       write('вывод элементов массива: ');       for i: =1 to n do      write(a[i],' '); end.