>>137317444 (OP)
s = 0;
for(int i = 1; i <= n; i++)
s = s + 1/i;

>>137317444 (OP)
какую именно сумму тебе нужно вычислить?

>>137317830
Сам , хз. Задача так сформулирована что я не могу понять Н вводить нужно или его дают?

>>137317872
Константа там.
Напиши, хули там, простейшее задание

>>137317969
У тебя строчки в файле платные?
Код должен быть читабелен

>>137317444 (OP)
Как тут >>137317705
Только
S:=0;
for i:=1 to n do
begin
s:=s+1/i
end
Уже 200 лет пасраля не видел. Но, вроде, так

>>137318041
Написано же через while и until, фор ему не всрался

>>137318041
Бля, инкремент забыл:
После s:=s+1/i;
надо еще
i:=i+1;

>>137318066
сорян, не заметил.

var
i, N: integer; { объявляем переменные }
S: real;
begin
S: = 0
i := 1; { Присваиваем i значение 1 }
readln(N);
while i <= N do {Как только i станет больше N, цикл прекратится (можно было бы написать просто <, но пришлось бы добавлять 1 к N) }
begin {Открываем операторные скобки}
S : = S + 1/i
i:= i + 1;
end; { закрываем скобки }
write(S,"");
end.

>>137318220
Малаца!

>>137318205
>>137317969
Мейлачую эту няшу :3

>>137317969
Так язык только для факториалов всяких и создавался.

>>137317705
>int i = 1 s = s + 1/i
>int
>1/int

>>137318312
>}
Не ну это пиздец, я вот просто охуеваю, это паскаль блядь? Хули нет нормального #

>>137318539
>(:
глядите, тут у нас смайлоеб

>>137318605
там кстати можно без скобок записать reduce :+

>>137318539
Не будет работать для всех натуральных чисел, я думаю.

>>137318448
Тащемта, единственная проблема в том коде - 1 вместо 1.0

>>137317444 (OP)
>Цикл до

>>137318822
repeat untill

>>137317969
Почему там 1%? Что такое процент?

>>137318539
>>1.0/i
Хаха, арийский язык с явным приведением типов

>>137318978
Это дробь 1/
Поэтому ответ получается не вещественный 1.88, а дробный 11/6 (11%6)