WHILE вираз DO оператор

Вираз повинен бути булевого ти­пу. Оператор, що стоїть після DO, утворює тіло циклу. Виконання опе­ратора WHILEпочинається з об­числення значення виразу; правило виконання показано на рис. 2.2.

Для того, щоб можна було забезпечити виконання серії операторів» їх слід об'єднати в один складений оператор, розміщуючи між службовими словами BEGIN і END.

Приклади

1. Скласти програму, яка б визначала, чи є задане натуральне число n³ 2 — простим.

Якщо задане число п > 2 не ділиться націло на жодне з чисел 2, З,..., п — 1, то воно — просте.

PROGRAM ргime_number;

VAR n,i:integer;

sign:boolean;

BEGIN

write ("Введіть чиcло ');

read (n);

writln;

i: =2; sign:=true;

WHILE (i<n) AND sign DO

BEGIN

IF (n MOD i)=0

THEN sign: = false;

i:= i=1

END;

IF sign

THEN writeln (n,’-просте число’)

ELSE writein (n,’-непросте число’)

END.

Оператор циклу-DОмає вигляд

REPEAT