Составить программу вычисления значения выражения y=1+1/2+1/3+...1/20!!!!

Question

Составить программу вычисления значения выражения y=1+1/2+1/3+...1/20!!!!

Answer 1

Var 
k:real;
i,:integer;
begin
k:=0;
for i:=1 to 20 do
k:=k+1/i;
write(k);
end.

Comments

ошибку нашел

---

Var
k:real;
i,:integer;
begin
k:=0;
for i:=1 to 20 do
k:=k+1/i;
write(k);
end.

---

Var
k:real;
i,:integer;
begin
k:=0;
for i:=1 to 20 do
k:=k+1/i;
write(k);
readln;
readln;
end.

---

так правильно