Дано натуральное число n (n вводится пользователем с клавиатуры). Вычислить:

Question

Дано натуральное число n (n вводится пользователем с клавиатуры). Вычислить:

---

Comments

на каком языке?

---

паскаль))

---

хорошо сейчас порешу

---

так?Program math;var a: real;var i,n: integer;begina:=1;readln(n);for i:=1 to n dobegin a:=a+(1/i);end;writeln(a);end.

---

да

Answer 1

Program math;var a: real;var i,n: integer;begina:=1;readln(n);for i:=1 to n dobegin  a:=a+(1/i);end;writeln(a);end.

Comments

а у меня нормально работает

---

выдает ошибку Program1.pas(5,8): Встречено '(', а ожидалось '

---

щас ещё раз попробую

---

Program math;
var a: real;
var i,n: integer;
begin
a:=1;
readln(n);
for i:=1 to n do
begin
a:=a+(1/i);
end;
writeln(a);
end.

---

вот так пиши

---

заработал?