Предмет: Информатика, автор: 0uteast

Вычислить: S=1+1/2+1/3+...+1/17

Ответы

Автор ответа: HRAshton
0
var
  s: real;
  b: byte;

begin
  for b := 1 to 17 do
    s += 1 / b;
  writeln(s);
end.


3.43955...
Похожие вопросы
Предмет: Математика, автор: sabi66808