Дано к. найти сумму sin1+cos2+sin3+cos4+ 2k+1 слагаемых. даны m, k. программа на паскале и блок схема, .

Напишу только паскаль, блок-схему не трудно составить из этого кода:

Var m,k:real; i:integer;
Begin
 readln(k);
 m:=0;
 for i:=1 to (2k+1) do
   if (i mod 2)=0 then m:=m+cos(i)
    else m:=m+sin(i);
 writeln(m);
End.