Question

дано натуральное число N. найти сумму S=1+1/2+1/3+...+1/N. цикл которым надо сделать while ...do

Answer 1

// PascalABC.NET 3.2, сборка 1447 от 22.05.2017
// Внимание! Если программа не работает, обновите версию!

1. Современная запись

begin
  var n:=ReadInteger('n=');
  (var s,var i):=(0.0,1);
  while i<=n do (i,s):=(i+1,s+1/i);
  Writeln('S=',s)
end.

Пример
n= 5
S=2.28333333333333

2. Школьная запись

var
  i,n:integer;
  s:real;
begin
  Write('n='); Read(n);
  i:=1;
  s:=0;
  while i<=n do begin
    s:=s+1/i;
    i:=i+1
    end;
  Writeln('S=',s)
end.