20
Объяснение:
Первый цикл записывает в ячейку массива значение ее номера, увеличенное на 1. После прохождения цикла мы получим следующие значения:
A[1]=2; A[2]=3; A[3]=4; A[4]=5; A[5]=6; A[6]=7; A[7]=8; A[8]=9; A[9]=10; A[10]=11.
Следующий цикл меняет значения ячейки массива на значение из предыдущей (начиная со второй). Вторая станет равна первой, третья второй, которая равна первой, так мы просто размножим значение из первой ячейки на все остальные.
Несложно будет вычислить сумму десяти ячеек, каждая из которых равна 2: 2*10=20.
ответ: 20
var
s, ss: string;
ls, lss, i, j: integer;
flag: boolean;
begin
readln(s);
readln(ss);
i := 1;
ls := Length(s);
lss := Length(ss);
flag := false;
while i <= ls - lss + 1 do
begin
if s[i] = ss[1] then
begin
flag := true;
for j := 1 to lss - 1 do
if s[i + j] <> ss[j + 1] then
begin
i := i + j;
flag := false;
break
end;
if flag then
begin
write('является');
exit;
end;
end;
i += 1;
end;
write('не является');
end.
