Пример1. Вычислите сумму n-целых чисел

program primer1;

var S,n,i:integer;

begin

writeln('Введите число n');

read(n);

i:=1;S:=0;

while i<=n do

begin

S:=S+i;

i:=i+1;

end;

writeln('S= ',S);

end.

Оператор повтора repeat

Оператор repeat реализует цикл с постусловием. Цикл с постусловием всегда будет выполнен хотя бы один раз.

Формат:

repeat

<оператор1>;

<оператор2>;

…

<операторN>;

until <условие окончания цикла>;

Операторы, заключенные между словами repeat и until, являются телом цикла. Вначале выполняется тело цикла, затем проверяется условие выхода из цикла. Если результат логического выражения равен False, то тело цикла активизируется еще раз; если результат True, происходит выход из цикла.

Дата добавления: 2014-01-07