Question

Найти значение выражения:
(Задание выполняется в программе PascalABС)

Answer 1

var

 i:integer;  

 c:real;

begin

 c:=1;

 for i:=2 to 20 do

   c:=c+1/i;

 writeln(c);

end.