В начале в строке находилось 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
Var a,b,c,d,e,x: integer; BEGIN readln(a,b,c,d,e); if {1} a>b then begin x:=a; a:=b; b:=x; end; if {2} c>d then begin x:=c; c:=d; d:=x; end; if {3} a>c then begin x:=a; a:=c; c:=x; x:=b; b:=d; d:=x; end; if {4} c>e then if {5} b>c then if {6} b>d then if {7} a>e then begin x:=e; e:=b; b:=a; a:=x; end else begin x:=e; e:=b; b:=x; end else if {7} a>e then begin x:=e; e:=d; d:=b; b:=a; a:=x; end else begin x:=e; e:=d; d:=b; b:=x; end else if {6} a>e then begin x:=e; e:=d; d:=c; c:=b; b:=a; a:=x; end else if {7} b>e then begin x:=e; e:=d; d:=c; c:=b; b:=x; end else begin x:=e; e:=d; d:=c; c:=x; end else if {5} d>e then if {6} b>e then if {7} b>d then begin x:=e; e:=b; b:=c; c:=x; end else begin x:=e; e:=d; d:=b; b:=c; c:=x; end else if {7} b>c then begin x:=b; b:=c; c:=x; x:=e; e:=d; d:=x; end else begin x:=e; e:=d; d:=x; end else if {6} b>d then if {7} b>e then begin x:=b; b:=c; c:=d; d:=e; e:=x; end else begin x:=b; b:=c; c:=d; d:=x; end else if {7} b>c then begin x:=b; b:=c; c:=x; end; writeln; writeln(a,' ',b,' ',c,' ',d,' ',e); END.
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998
BEGIN
readln(a,b,c,d,e);
if {1} a>b then begin x:=a; a:=b; b:=x; end;
if {2} c>d then begin x:=c; c:=d; d:=x; end;
if {3} a>c then begin x:=a; a:=c; c:=x; x:=b; b:=d; d:=x; end;
if {4} c>e then
if {5} b>c then
if {6} b>d then
if {7} a>e then begin x:=e; e:=b; b:=a; a:=x; end
else begin x:=e; e:=b; b:=x; end
else
if {7} a>e then begin x:=e; e:=d; d:=b; b:=a; a:=x; end
else begin x:=e; e:=d; d:=b; b:=x; end
else
if {6} a>e then begin x:=e; e:=d; d:=c; c:=b; b:=a; a:=x; end
else
if {7} b>e then begin x:=e; e:=d; d:=c; c:=b; b:=x; end
else begin x:=e; e:=d; d:=c; c:=x; end
else
if {5} d>e then
if {6} b>e then
if {7} b>d then begin x:=e; e:=b; b:=c; c:=x; end
else begin x:=e; e:=d; d:=b; b:=c; c:=x; end
else
if {7} b>c then begin x:=b; b:=c; c:=x; x:=e; e:=d; d:=x; end
else begin x:=e; e:=d; d:=x; end
else
if {6} b>d then
if {7} b>e then begin x:=b; b:=c; c:=d; d:=e; e:=x; end
else begin x:=b; b:=c; c:=d; d:=x; end
else
if {7} b>c then begin x:=b; b:=c; c:=x; end;
writeln;
writeln(a,' ',b,' ',c,' ',d,' ',e);
END.