Var s,p,real;
begin
p:=1;
s:=0;
for var i:=8 to 35 do
if i mod 2 = 0 then begin
s:=s+i;
p:=p*i;
end;
writeln('Сумма четных = ',s,', Произведенние четных = ', p);
end.
Схема в приложенной картинке.
<span>Шрифт
Размер шрифта
Полужирный
Курсив
Подчеркнутый
___
Выровнять:
</span>По левому краю
<span>По центру
По правому краю
__
</span>Нумерация
Если это Exel, тогда в формуле просто заменятся сами ечейки, а формула останется прежней.(советую проверить на любой формуле, т.к. Word бывает разных версий и настроек, но должно быть как я и описал)
Т.е. было допустим =sum(C1:C3) а после копирования =sum(E2:E4)