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

Исполнение цикла повторяется до того момента, когда <Логическое выражение> станет равным true.
Предыдущая задача с использованием цикла с постусловием решается так:
S:=0;
I:=1;
Repeat
S:=S+1/I; I:=I+1
Until (1/I<Eps) Or (I>=MaxInt);

