Пожалуйста помогите. Cреда действия "Паскаль". Составить блок схему и написать при этом...

Question

Пожалуйста помогите. Cреда действия "Паскаль". Составить блок схему и написать при этом саму программу. S=1+.

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.

---