Question

Помогите составить блок-схему. Введя n, найти сумму:
$S=1-\frac{1}{2} +\frac{1}{3} -\frac{1}{4}+\frac{1}{5} ....\frac{1}{n}$

Answer 1

Ответ:

var s:real;

n,i:integer;

begin

s:=0;

write ('Введите n: ');

readln(n);

for i:=1 to n do s:=s+(1/i);

writeln ('S = ',s:0:2);

end.