Const n=100;
var a: array [1..n] of integer;
s,i: integer;
begin
s:=0;
for i:=1 to n do
{ вывод массива на экран }
begin
a[i]:=Random(100);
write(a[i],' ');
if (i mod 10 =0) then writeln();
end;
{ подсчет суммы элементов, кратных 3 }
for i:=1 to n do
if (a[i] mod 3 =0) then s:=s+a[i];
writeln('сумма равна ',s);
end. <span>
</span>
Имеем строку из единиц длиной 99 символов.
Пока в строке имеется подстрока 111, выполняется цикл.
Подстрока 111 заменяется на 2 и это уменьшает длину строки на 2 символа.
Эта операция повторяется, пока не появится подстрока 222, что достигается за три прохода по циклу. При этом длина строки в целом сократится на 6.
Подстрока 222 заменяется на 1, после чего получается строка исходного вида (из одних единиц), но с длиной на 8 меньше исходной.
Этот процесс будет повторятся и длина строки последовательно будет такой:
99, 91, 83, ... 11. Можно предположить, что строка окончательно примет длину 99 mod 8 = 3, но все немного сложнее.
Дело в том, что строка длиной 11, т.е. 1111111111 будет последовательно преобразована к
211111111
2211111
22211
и после этого цикл закончится, поскольку подстроки 111 больше найдено не будет.
Ответ: 22211
Так пойдет? Одно целое, одно вещественное число в PABC.NET <span />
1. HTML-страница
2. тег
3. парные теги, как <тег> </тег>
4. 1,3
5. 3
6. CMS