Действие компьютерного вируса состоит в том чтобы вместо букв "б", "в ", "л", "о", "т", печатаются цыфры, кроме цифры 0, причем разным буквам соответсвтвуют разные цифры. выясните, какие цифры какким буквам соответствуют, если известно что: 1) сумма цифр слова "бот" = 8 2) сумма цифр слова "вол" = 9 3) сумма цифр слова "болт" = 11 4) сумма цифр слова "лото" =12

видим, что слово бот и слово болт отличаются на 1 букву л, следовательно 11-8 = 3

и л = 3

а дальше действуем методом подбора, помя, что цифры не могут быть одинаковыми:

о = 2

т = 5

б = 1

в = 4

 

Const   n = 15; var   x: array[1..n] of integer;   i, max: integer; begin   randomize;   write('элементы массива: ');   for i : = 1 to n do   begin       x[i] : = random(20);       write(x[i]: 3)   end;   max : = x[2]; i : = 4;   while i < = n do   begin       if max < x[i] then max : = x[i];       i : = i + 2   end;   writeln;   writeln('max=', max) end. тестовое решение: элементы массива:   17 12 18 12 11 14 18 19 16 16  9 13  7  3 13 max=19

Var a, b, c, d, k, i, j, n1, n2 : integer;     s: array [1..100,1..100] of integer; procedure swap(a, b : integer; var c, d : integer); var e : integer; begin     c: =b;     d: =a; end; begin     read (n1, n2);     for i: =1 to n1 do          for j: =1 to n2 do            read (s[i,j]);     for j: =1 to n2 do          swap (s[1,j],s[3,j],s[1,j],s[3,j]);     for i: =1 to n1 do      begin          writeln;           for j: =1 to n2 do            write (s[i,j],' ');       end end.