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

Дано натуральное число N. Определить, является ли оно простым
PROGRAM PRG_1;

VAR I, N, F : INTEGER;

BEGIN

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

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

REPEAT

WRITE(‘BBEДИТЕ НАТУРАЛЬНОЕ ЧИСЛО N = ‘);
READLN (N);
UNTIL N>0;
F:=0;
FOR I := 2 TO N DIV 2 DO
IF N MOD I = 0 THEN
F := 1;

IF F = 0 THEN

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

ELSE

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

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

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

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

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

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

Переменные:

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

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

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

Добавить комментарий