ТутРешу.Ру

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

Задание:

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

Решение:

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




Знаете другой ответ?

Отправить свой ответ