В начале в строке находилось 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
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998
Program fantscrin;
const n = 15;
const m = 10;
Var x: array [1..n] of real;
y: array [1..n] of real;
z: array [1..n+m] of real;
i,e_1,e_2,g:integer; s,p,min:real;
Begin
for i:=1 to n do
x[i]:=random(20)-10;
for i:=1 to m do
y[i]:=random(10)-5;
for i:=1 to n do
write(x[i],' ');
s:=0;
for i:=1 to n do
if(i mod 2 <> 0) then s:=s+x[i];
for i:=1 to n do
if (x[i] < 0) then
begin
e_1:=i;
break;
end;
for i:=n downto 1 do
if (x[i] < 0) then
begin
e_2:=i;
break;
end;
p:=1;
for i:=e_1 to e_2 do
p:=p*x[i];
for i:=1 to n do
z[i]:=x[i];
for i:=1 to m do
z[n+i]:=y[i];
min:=z[1];
g:=1;
for i:=2 to n+m do
if (z[i] < min) then
begin
min:=z[i];
g:=i;
end;
writeln('');
writeln('1. : ',s);
writeln('2. : ',p);
for i:=1 to m do
write(y[i],' ');
writeln('');
for i:=1 to n+m do
write(z[i],' ');
for i:=g to n+m-1 do
z[i]:=z[i+1];
z[n+m]:=0;
writeln('');
writeln(g);
for i:=1 to n+m-1 do
write(z[i],' ');
End.