| Дано натуральное число 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 — вспомогательный флаг. |