Pascal. (через операторы цикла WHILE и REPEAT) Вычислить 2/1+3/2+4/3+...+(n+1)/n
Pascal. (через операторы цикла WHILE и REPEAT) Вычислить 2/1+3/2+4/3+...+(n+1)/n
Гость
Ответ(ы) на вопрос:
Гостьvar sum,a,n:real;
begin
sum:=0;
a:=1;
writeln('Введите n');
read(n);
n:=n+1;
repeat
sum:=sum+(a+1)/a;
a:=a+1;
until a=n;
writeln(sum);
end.
Не нашли ответ?
Похожие вопросы