Вычислить: Сумма от k=1 до n + блок схема

[...Оленька...]

цыклы с заданным числом повторений №14 по ссылке http://kit.zsu.zp.ua/iLec/1sem/PROGR...pas/Lr2pas.htm

[lexus_ilia]

Ну вот разве так сложно написать условие сразу здесь? А не заставлять ползать людей по каким-то левым сайтам...
Вот ваше задание
14.Дано натуральное число n. Вычислить: Сумма от k=1 до n.

((-1)^(k+1)) /(k*(k+1))

[lexus_ilia]

Короче держи свою задачу...

Program xa;
Var
 i,n:integer;
 s:real;
begin
 Writeln('BBedute n');
 readln(n);
 s:=0;
 For i:=1 to n do
 if i mod 2=0 then
  s:=s-1/(i*(i+1))
 else
  s:=s+1/(i*(i+1));
 Writeln('Cymma = ' ,s:12:4);
 readln
end.

[...Оленька...]

большое спасибо а не поможешь составить блок схему!

[lexus_ilia]

Так-с, малёк я забыл что тут отвечал, держи свою блок-схему....

[...Оленька...]

помоги пожалуйта решить еще одну задачку и составить блок схему! разветляющиеся структуры задание №14 по ссылке http://kit.zsu.zp.ua/iLec/1sem/PROGR...pas/Lr2pas.htm