Question

Вычислить сумму указанную на фото

Answer 1

//Pascal
var X, S, h: real;
begin
write('X = ');
readln(X);
while h < 20 do
begin
  h := h + 2;
  S := S + X / h;
end;
writeln('S = ', S);
end.