Регистрация
temik261
16.02.2020 07:05
Информатика
Есть ответ 👍

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

265
376
Посмотреть ответы 2

Ответы на вопрос:

знания2345
знания2345
4,5(84 оценок)

ответ:

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.

ycidenis1
ycidenis1
4,5(8 оценок)
Купить новый виндовс

Популярно: Информатика