Составить программу вычисления значения выражения y=1+1/2+1/3+...1/20!!!!

Var 
k:real;
i,:integer;
begin
k:=0;
for i:=1 to 20 do
k:=k+1/i;
write(k);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.