Question

НАПИСАТЬ КОД ДЛЯ PASCAL ! [за спам бан]
Требуется написать код для :
найти сумму рядом S=1 + $\frac{1}{2}$ + $\frac{1}{3}$ + $\frac{1}{4}$ + $\frac{1}{5}$... $\frac{1}{50}$

ОБЯЗАТЕЛЬНО ИСПОЛЬЗОВАТЬ ЦИКЛ С ПАРАМЕТРАМИ For to Do

Answer 1

Ответ:

var s : real := 0;

begin

 for i : integer := 1 to 50 do

   s := s + 1/i;

 write(s)

end.