Оператор while (пока) часто называют оператором цикла с предусловием за
то, что проверка условия выполнения тела цикла производится в самом
начале оператора.
Формат записи:
While <условие продолжения повторений> do <тело цикла>;
Условие – булевское
выражение, тело цикла – простой или составной оператор. Перед
каждым выполнением тела цикла вычисляется значение выражения условия.
Если результат равен True, то тело цикла выполняется и снова
вычисляется выражение условия. Если результат равен False, то
происходят выход из цикла и переход к первому после while оператору.
Посчитать S=1+2+3+4+5
Program Hl;
Var
I: integer;
Begin
I:=1; s:=0;
While I<=5 do
Begin
S:=s+1;
I:=I+1;
End;
