Составить программу для вычисления значений переменной y при заданном значении n.(использовать три различных оператора цикла) y=[latex] \frac{1}{1} + \frac{1}{2} +...+ \frac{1}{n} [/latex]

Составить программу для вычисления значений переменной y при заданном значении n.(использовать три различных оператора цикла) y=[latex] \frac{1}{1} + \frac{1}{2} +...+ \frac{1}{n} [/latex]
Гость
Ответ(ы) на вопрос:
Гость
Var y:real; n,i:integer; Begin Write('n = ');ReadLn(n); {Цикл с параметром:} y:=0; For n:= 1 to n do     y:=y+(1/n); WriteLn('y = ',y); {Цикл с постусловием:} y:=0; i:=1; Repeat y:=y+(1/i); i:=i+1 Until i>n; WriteLn('y = ',y); {Цикс с предусловием:} y:=0; i:=1; While i<=n do    Begin    y:=y+(1/i);    i:=i+1    End; WriteLn('y = ',y) End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы