1) В цикле по значениям переменой i от i=1 до i=19 выполнять сложение вида: s=s+i/(i+1)
на паскале это выглядит так:
var s:real;
begin
for var i:=1 to 19 do s:=s+i/(i+1);
writeln('Ответ: ',s);
end.
2) сложная прогрессия какая-то... могу предположить, что вида: 1+2*(i-1)+s_i-1
т.е.
1) 1+2*(1-1)+0=1
2) 1+2*(2-1)+1=4
3) 1+2*(3-1)+4=9...
тогда на паскале алгоритм:
var s,si:real;
begin
for var i:=1 to 10 do begin
si:=1+2*(i-1)+si;
s:=s+si;
end;
writeln('Ответ: ',s);
end.