R=1+sin0,1+sin0,2+sin0,3+.....+sin10
Вычислить на паскале

program calc;var    r, i: real;begin    r := 1;    i := 0.1;    while i <= 10 do    begin        r := r + Sin(i);        i := i + 0.1;    end;    writeln('R=', r);end.