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

Автор arsenikrmaks На чтение 2 мин

Дан интервал натуральных чисел от N до М. Определить все простые числа в этом интервале.

PROGRAM PRG_2;

VAR I, N, F, J, R, M : INTEGER;

BEGIN

{ДАН ИНТЕРВАЛ НАТУРАЛЬНЫХ ЧИСЕЛ ОТ N ДО М. ОПРЕДЕЛИТЬ ВСЕ ПРОСТЫЕ ЧИСЛА В ЭТОМ ИНТЕРВАЛЕ}

REPEAT

WRlTE(‘BBEДИТЕ НИЖНЮЮ ГРАНИЦУ ИНТЕРВАЛА N =’);

READ (N);

WRITE(‘BBEДИTE ВЕРХНЮЮ ГРАНИЦУ ИНТЕРВАЛА М =’);

READLN (М);

UNTIL (N>0) AND(M>0) AND(N<m);< div=»»>

WRITELN(‘B ПРОМЕЖУТКЕ ОТ’, N : 6, ‘ДО’, М : 6);

R:=0;

FOR J := N ТО М DO BEGIN

F:=0;

FOR I := 2 TO J DIV 2 DO

IF J MOD I = 0 THEN F := 1;

IF F = 0 THEN

BEGIN R := 1;

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

END;

IF R = 0 THEN WRITELN(‘ПPOCTЫlX ЧИСЕЛ НЕТ’)

END.

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

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

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

— в цикле по переменной J начинаем порождение натуральных чисел;

— во вложенном цикле по I проверяем, простое ли число J;

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

Переменные:

N, М — границы интервала;

I, J — переменные циклов;

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

</m);<>