вычислить значение суммы N членов следующего ряда:13+k/2+к/3+к/4...N>0,K>0 вводятся с клавиатуры
Answers & Comments
mmmegakilll
Вроде как вот так: 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.
1 votes Thanks 2
mmmegakilll
Если не работает - отпиши, заскриню свой код, мог просто удалить во время переноса кое-что
Answers & Comments
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.