begin; comment ALGOL Praktikum, Dr. Karl Nickel, 1964, page 215 (Aufgabe 40) ``Teilsummen-Formel nach Euler. Loesung von Doz. Dr. R. Wagener. Elegantissimum'' ; integer N, H, U, K; integer array S[0 : 200]; for N := 1 step 1 until 200 do begin; S[0] := N; S[N] := 0; H := U := -1; for K := N - 1 step H until 0 do begin; S[N] := S[K] + S[N]U; H := ((3 + U)
H - 2) ÷ (3 - U); U := -U; end ; S[N] := ABS(S[N]); VPRINT(N, S[N]); end ; end ;