Эквивалент - это цифра, стоящая после символа 'e' или 'E'. Коротко говоря, эквивалент можно преобразовать в вид
То есть, Ваша запись могла бы записаться так:
<h2>Ответ</h2>
7
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var a:=Range(10,100,10).ToArray; a.Println;
Writeln('Ср.арифм.=',a.Average);
a[0]+=5; a[4]+=5; a[9]+=5;
a.Println
end.
<u><em>Тестовое решение:</em></u>
10 20 30 40 50 60 70 80 90 100
Ср.арифм.=55
15 20 30 40 55 60 70 80 90 105
Var
s, a, b: string;
i: integer;
begin
readln(s);
a:='Да';
b:='Нет';
while pos(a, s) > 0 do
begin
i:=pos(a, s);
delete(s, i, length(a));
insert(b, s, i);
end;
writeln(s);
<span>end.</span>