Дано К. Найти сумму 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.