Question

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

Answer 1

Вроде как вот так:
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.