Упражнение 1 (Производящие функции и ряды)

VAR I, N, F : INTEGER;

BEGIN

{ДАНО НАТУРАЛЬНОЕ ЧИСЛО N .

ОПРЕДЕЛИТЬ, ЯВЛЯЕТСЯ ЛИ ОНО ПРОСТЫМ.}

REPEAT

IF F = 0 THEN

WRITELN(‘ЧИСЛО ‘, N : 6, ‘ ПРОСТОЕ’)

ELSE

Для решения задачи:

— формируем тело программы и описываем переменные;

— вводим натуральное число;

— в интервале от 2 до N/2 порождаем натуральные числа и проверяем, являются ли они делителями числа N;

— в зависимости от значения флага F выводим результат.

Переменные:

N — исследуемое число;

I — переменная цикла;

F — вспомогательный флаг.