Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Вычислить значение суммы N членов следующего ряда:13+k/2+к/3+к/4...N>0,K>0 вводятся с клавиатуры

Ответ оставил Гость

Вроде как вот так:
Program aasfa;
var n,i: integer; 
k,z: real;
begin
Writeln(Введите N:);
readln(N);
Writeln(Введите K:);
readln(K);
z:=13;
For i:=2 to N do
z:=K/i+z;
Writeln(z);
end.