Написати програму обчислення 1/2+1/3+1/4+...+1/х, де х-ціле число
kiril228332:
Есле пролистать ниже там будет тот же вопрос но я там даю 50 баллов
Ответы
Ответ дал:
1
Ответ:
Код ниже
Объяснение:
program sumFractions;
var i, x: integer;
S : real;
begin
writeln('Введите число x: ');
readln(x);
S := 0;
for i := 2 to x do begin
S := S + 1/i;
end;
writeln('Сумма дробей S = ', S);
end.
Вас заинтересует
3 месяца назад
4 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад
7 лет назад