Цикл с постусловием начало Тело цикла условие

Цикл с постусловием

начало Тело цикла условие + Вывод результатов конец

REPEAT S UNTIL В B – условие, S – тело цикла

Алгоритм работы цикла: Выполняется тело цикла. Проверяется условие, если условие – ложь, то опять выполняется тело цикла и до тех пор пока оно не примет значение истина, т. е. когда условие примет значение истина, то произойдет выход из цикла, и произойдет вывод данных на печать. Цикл с предусловием в отличии от цикла с постусловием выполнится хотя бы 1 раз.

PROGRAM S 1; VAR i, N: INTEGER; BEGIN WRITELN(‘ВВЕДИТЕ N’); READLN (N); i: =1; REPEAT WRITE (i: 3); i: = i+ 1; UNTIL i>N; END.

PROGRAM S 2; VAR i, N: INTEGER; BEGIN WRITELN(‘ВВЕДИТЕ N’); READLN (N); i: =1; REPEAT WRITELN (i: 3); i: = i+ 1; UNTIL i>N; END.

PROGRAM S 3; VAR i, N: INTEGER; BEGIN WRITELN(‘ВВЕДИТЕ N’); READLN (N); i: =2; REPEAT WRITE (i: 3); i: = i+ 2; UNTIL i>N; END.

PROGRAM S 4; VAR i, N: INTEGER; BEGIN WRITELN(‘ВВЕДИТЕ N’); READLN (N); i: =1; REPEAT WRITE (i: 3); i: = i+ 2; UNTIL i>N; END.

PROGRAM S 5; VAR i : INTEGER; BEGIN i: =1; REPEAT WRITE (i: 3); i: = i+ 1; UNTIL i>20; END.

PROGRAM S 6; VAR i : INTEGER; BEGIN i: =2; REPEAT WRITE (i: 3); i: = i+ 2; UNTIL i>20; END.

PROGRAM S 6; VAR i : INTEGER; BEGIN i: =1; REPEAT WRITE (i: 3); i: = I + 2; UNTIL i>20; END.

Составить следующие задачи: 1) Распечатать числа 1 до n. 2) Распечатать четные числа от 1 до n. 3) Распечатать неч. числа от 1 до n. 4) Распечатать числа 1 до 30. 5) Распечатать четные числа от 1 до 30. 6) Распечатать неч. числа от 1 до 30.