Упражнение 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);<>

Частые вопросы

Чем страница «Упражнение 2 (Производящие функции и ряды)» отличается от главной Языки программирования Pascal и Delphi?

Это отдельная карточка или рубрика, а не дубль главной. Канонический адрес — текущий URL без www и с https.

Стоит ли покупать «Упражнение 2 (Производящие функции и ряды)» только по этому тексту?

Нет. Текст помогает сравнить варианты, но финальный выбор зависит от вашего сценария, бюджета и актуальной оферты продавца.

Есть ли смысл читать FAQ, если уже есть рейтинг?

Да. FAQ отвечает на типовые вопросы выбора, рейтинг — на сравнение позиций. Это разные блоки одной страницы.

Что это за материал «Упражнение 2 (Производящие функции и ряды)»?

Это редакционный разбор на Языки программирования Pascal и Delphi: коротко, кому подходит тема, какие критерии сравнения важны и где проверить актуальные условия у поставщика.