26.Оператор цикла с предусловием. Привести фрагмент программы.

Цикл с предусловием-это цикл,который повторяется до тех пор, пока условие истинно. Для реализации цикла с предусловием в языке Паскаль (Pascal) используется оператор while,который имеет следующий вид: while < условие > do < оператор >; Если тело цикла состоит из нескольких операторов, необходимы операторные скобки begin. .end.  Составим программу, которая определяет, сколько слагаемых должно быть в сумме последовательных чётных чисел (2+4+6+8+...), чтобы эта сумма оказалась больше некоторого заданного натурального числа n(n>=2),и выводит на экран результат - количество слагаемых. program kol_slag;  var i, sum, n, x: integer;  begin  write (' n= '); readln(n); x:=2;  sum:=2; i:=1; while sum <=n do begin x:=x+2; i:=i+1; sum:=sum+x;  end; writeln(i,' слагаемых');  end.  Результат выполнения при n=10: sum = 55 Цикл в этой программе работает следующим образом: вначале i= 0, n=10, sum =0; условие i<10 истинно, и тело цикла выполняется; i увеличивается на 1 (i=i+1=0+1=1); значение суммы увеличивается на 1 (sum =sum + i=0+ 1=1); условие i<10 вновь истинно, поэтому тело цикла выполняется в очередной раз: i увеличивается на 1 (i=i+1=1+1=2);  значение суммы увеличивается на 2 (sum =sum + i=1+2=3); условие i<10 истинно, поэтому тело цикла выполняется в очередной раз и т.д.  После 10 повторений данной последовательности действий (i=i+1 и sum = sum+i) получим i=10, sum=1+2+...+10. Условие i<10 ложно, поэтому выполнение цикла завершится.