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

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

и л = 3

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

о = 2

т = 5

б = 1

в = 4

S: =1; - переменной s присваивается начальное значение 1 for i : = 10 to 99 do   - начало цикла с параметром, i - параметр цикла, 10 - начальное значение параметра, 99 - конечное значение параметра. т.е. цикл будет выполняться 90 раз, параметр i будет принимать последовательно значения 10, 11, 12, 99.if (i mod 13 = 0) and (i mod 2 < > 0) then   - условный оператор. в условии используется операция mod - определение остатка от целочисленного деления. (i mod 13 = 0) - это условие будет выполняться для чисел, которые делятся на 13 без остатка; (i mod 2 < > 0) - это условие будет выполняться для чисел, которые делятся на 2 с остатком (это нечетные числа). таким образом, условие  (i mod 13 = 0) and (i mod 2 < > 0) будет иметь значение true для нечетных чисел, которые делятся на 13 без остатка (это  13, 39, 65, 91).программа в целом вычисляет произведение нечетных  чисел, которые  делятся на 13 без остатка.  (в программе есть ошибка. тип переменной s  должен быть integer.)

pascalвыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

uses crt;

const n=10;

var i,j,k: integer; max,min: integer; s,buf: real; f: text;  

const x: array[1..n] of integer=(5,-11,7,19,-16,3,-8,4,10,2);

begin  

assign(f,'array.pas');

rewrite (f);

writeln (f);  

writeln('массив 5,-11,7,19,-16,3,-8,4,10,2');

min: =0;

max: =0;

writeln;

writeln;

  for i: =1 to 9 do  

  if x[i] mod 2 = -1 then   if x[i]< x[i+1] then begin

                                              min: =min+x[i];  

                                              write ('минимальное нечетное x[',i,']='   ,x[i]);

                                              end;

  writeln; {сумма элементов массива между минимальным нечетным и максимальным четным}

  for i: =1 to 9 do                                              

  if x[i] mod 2 = 0   then   if x[i]> x[i+1] then begin  

                                              max: =max+x[i];  

                                              write ('максимальное четное x[',i,']='   ,x[i]);

                                              end;

                                              writeln;

                                              writeln;

  s: =0;                                            

  for i: =2 to 9 do

  begin

  s: =s+x[i];    

  writeln('сумма элементов между min нечетным и max четным = ',s: 4: 0);    

  end;

   

  writeln;

  writeln;

   

  {поменять местами максимальное четное с минимальным нечетным}

   

 

end.