Составить программу в паскале и блок схему: вычисление суммы ряда s=1-1/2+1/4-1/6+/n.

Вот держите: var n,i,l,m: integer; sum: real; begin      readln(n);       sum: =1; l: =1;       while m< > n do  begin          m: =m+2;           sum: =/m)*l);           l: =l*-1;       end;       writeln(sum); end.

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.

число-общее

столица росси - единичное

учебник - общее

житель москвы - общее

столица - общее

самая высокая гора - единичное

пушкин - единичное

сказочный персонаж - общее

баба яга- единичное