Пользователь вводит с клавиатуры два числа. нужно
посчитать отдельно сумму четных, нечетных и чисел,
кратных 9 в указанном диапазоне, а также среднеарифметическое каждой группы.

В начале в строке находилось 333 троек по 8 плюс одна 8, всего 1000 восьмерок.
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998

Program pr;

uses crt;

Var a,k,k1:integer;

Begin

Writeln("Bведите а");

readin(a);

k1:=1;

k:=0

; While (a<>0) and (k1<1000) do

Вegin

if (a<0) and (a mod 2-0) and (abs (a)<-30000)

then k:%3Dk+1;

readln(a); end;

Writeln(k3},k);

readln;

end. 2) Program pr;

uses crt;

Var a,k,k1:integer;

Begin Writeln('Bведите а);

readln(a);

k1:=1

k:=0

While (a<>0) and (k1<1000) do

Begin if (a>0) and (a mod 24>0) and (abs(a)<-30000)

then k:1k+1;

k1:=k1+1

readln(a):

end

Writeln('k='k');

readin;

end