Основы программирования на C++, PASCAL

Исполнение цикла повторяется до того момента, когда <Логическое выражение> станет равным true.

Предыдущая задача с использованием цикла с постусловием решается так:

S:=0;

I:=1;

Repeat

S:=S+1/I; I:=I+1

Until (1/I<Eps) Or (I>=MaxInt);