В данном фрагменте программы выполняется:
A) поиск четных значений
Б) подсчет суммы элементов, больших 7
В) подсчет количества элементов,больших 7
Г) подсчет количества элементов, кратных 7.
a:=0;
For i:=1 ti 10 do
Begin
Readln(x);
If x>7 Then a:=a+1;
End;
Writeln(a);
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998