Задание:
Составить программу вычисления значения выражения 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.
Знаете другой ответ?
Составить программу вычисления значения выражения 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.
Знаете другой ответ?