Resposta :
Início
num, flag: inteiro;
serie : real;
num = 1;
serie = 0;
flag = 0;
enquanto num <= 50 faça
se flag = 0 então
serie = serie + num / (num * 2);
flag = 1;
senão
serie = serie - num / (num * 2);
flag = 0;
fimse;
num = num + 1;
fimenquanto;
escreva (serie);
Fim.
num, flag: inteiro;
serie : real;
num = 1;
serie = 0;
flag = 0;
enquanto num <= 50 faça
se flag = 0 então
serie = serie + num / (num * 2);
flag = 1;
senão
serie = serie - num / (num * 2);
flag = 0;
fimse;
num = num + 1;
fimenquanto;
escreva (serie);
Fim.