40 баллов
Построить программу в Pascal с циклической структурой
Дано натуральное число n. Вычислить:
2/1+3/2+4/3+... +(n+1)/n
Ответы
Ответ дал:
0
program raf105;
var
i,n: integer;
sum: real;
begin
write('n = ');
readln(n);
for i:=1 to n do
sum:= sum + (i+1)/i;
writeln('Вывод: ',sum);
end.
PascalABC 3.4.2
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад