Question

Плиз, помогите с Паскалем! Составьте программу для решения задачи: Дано натуральное число n. Найти сумму s=1+1/2+1/3+... +1/n.

Answer 1

program raf105;

var

 n: integer;

 sum: real;

begin

 write('n = ');

 readln(n);

 for var i:=1 to n do

   sum:= sum + 1/i;

 writeln('Сумма: ',sum);

end.

PascalABC

Answer 2

Код на языке Паскаль для решения данной задачи может выглядеть следующим образом:

```
program PascalSum;
var
n: integer;
i: integer;
s: real;
begin
write('Введите значение n: ');
readln(n);

s := 0;
for i := 1 to n do
begin
s := s + 1/i;
end;

writeln('Cумма равна: ', s);
end.
```

В этой программе мы объявляем переменные `n`, `i` и `s`, где `n` хранит значение введенного натурального числа, `i` используется в цикле для перебора чисел от 1 до `n`, а `s` будет использоваться для накопления суммы.

Мы сначала выводим сообщение, запрашивая пользователя ввести значение `n`. Затем нам необходимо проинициализировать переменную `s` нулем, так как мы считаем сумму, начиная с 1.

Далее мы входим в цикл `for`, в котором переменная `i` будет последовательно принимать значения от 1 до `n`. На каждой итерации цикла мы добавляем в `s` дробь `1/i`.

После завершения цикла мы выводим значение суммы `s` на экран с помощью процедуры `writeln`.

Пример работы программы:

Введите значение n: 5
Сумма равна: 2.28333333333333