Question

Дано натуральное число n.
Вычислить: S= 1/n+2/n+…+n/n
Можете решить через FOR на языке паскаль

Answer 1

Ответ:

program z;

var n,i:integer;

S:real;

begin

S:=0;

read(n);

for i:=1 to n do S:=S+i/n;

write(S)

end.