Ответы
Ответ дал:
0
program summa;
var
s:real;
i, n : integer;
begin
writeln('Введите число n= ');
read(n);
s:=0;
for i:=1 to n do
s:=s+(i+1)/i;
writeln('Сумма: ',s:4:2);
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад