1/1+1/2+1/4+1/8+1/16 go 1/1024 (pascal)циклические алгоритмы , нужна полностью программа!

Question

Информатика: 1/1+1/2+1/4+1/8+1/16 go 1/1024 (pascal)циклические алгоритмы , нужна полностью программа! ​

nastya2747 · Answer

program Calc;var  n, s: Double;  i: Integer; begin  s := 0;  n := 1;  while n = 1024 do begin    s := s + 1 / n;    n := n * 2;  end;  WriteLn ( Сумма = , s :20 :20);  ReadLn; end....

1/1+1/2+1/4+1/8+1/16 go 1/1024 (pascal)
циклические алгоритмы , нужна полностью программа!

Популярные вопросы

1/1+1/2+1/4+1/8+1/16 go 1/1024 (pascal)циклические алгоритмы , нужна полностью программа! ​

Популярные вопросы

1/1+1/2+1/4+1/8+1/16 go 1/1024 (pascal)
циклические алгоритмы , нужна полностью программа!