Теперь бом загадывает два числа, а бим просит выполнить с этим числами действия по алгоритму и сообщить результат.по результатам бим всегда отгадывает второе число.чтобы узнать секрет этого фокуса, выполни алгоритм для трех разных пар чисел.записывай , что получается после каждого действия.1.начало 2.загадай любое число а и любое четное число б 3.умножь число а на 2 4.к результату прибавь число б 5.раздели сумму на 2 6. вычти число а 7. сообщи результат 8 конец что получ 31, 8

Решение тут простое, а вот как блок-схему имеет смысл нарисовать. число a - любое натуральное, число b - натуральное четное, т.е. b=2k, где k - любое натуральное число. легко видеть, что по результатам шестого шага алгоритма  получилось число k. но мы полагали, что b=2k, поэтому бим удваивает сообщенное ему число и получает  b. примеры решений: 1. a=37, b=18 3) 37*2=74 4) 74+18=92 5) 92/2=46 6) 46-37=9 и теперь 9*2=18=b 2. a=4, b=2 3) 4*2=8 4) 8+2=10 5) 10/2=5 6) 5-4=1 и теперь 1*2=2=b 3. a=12345, b=222 3) 12345*2=24690 4) 24690+222=24912 5) 24912/2=12456 6) 12456-12345=111 и теперь 111*2=222=b

Поскольку «БРА» у нас слово нечётное, то будет необходимо удалить первый символ цепочки. Мы получим остаток «РА»;

Теперь согласно условиям задачи заменяем буквы «Р» и «А» на буквы, следующие за ними в русском алфавите. Это будут буквы «С» и «Б» = СБ;

Теперь вновь применяем алгоритм задачи (нам сказано применить его дважды). Поскольку «СБ» слово чётное, то в середину нашей цепочки согласно условиям задачи добавляем «А». Получаем САБ;

Теперь меняем буквы «С» «А» «Б» на буквы, следующие за ними в русском алфавите. Это будет цепочка «ТБВ». Данная цепочка и будет правильным ответом.

1)

var

i,c:integer; //Объявляем переменные

mas: array [1..20] of integer; //Объявляем массив

begin

c:=0; //Обнуляем переменную c

writeln('20 случайных чисел:'); //выводим на экран сообщение

randomize; //запускам рандом

for i:=1 to 20 do begin //запускаем цикл для массива от 1го до 20го элемента по очереди

mas[i]:=random(5,20); //генерируем число от 5 до 20

if mas[i] mod 2 = 0 then begin //запускам проверку, на четность числа. Если оно делится без остатка на 2

c:=c+1; //то к переменной c прибавляем единицу (значит оно четное

end;

write(mas[i], ' '); //Выводим наш массив

end;

writeln(); //пробел между строк

writeln('Количество четных элементов = ', c); //выводим количество четных элементов  

end.

2)

var

i:integer; //Объявляем переменные

s:real; //Объявляем переменные

mas: array [1..10] of real; //Объявляем массив

begin

writeln('Введите 10 вещественных чисел'); //выводим на экран сообщение

for i:=1 to 10 do begin //запускаем цикл заполнения массива

read(mas[i]); //вводим число с клавиатуры

if mas[i] < 1 then //проверяем меньше ли единицы введенное число

s:=s+mas[i]; //если меньше,то прибавляем его в сумму (считаем сумму всех чисел, меньше 1, чтобы найти среднее арифметическое)

end;

s:=s/10; //Делим сумму на количество чисел  

writeln ('Среднее арифметическое = ',s);

end.