Реферат: Операторы цикла

продолжаем поиск простых делителей}

For I := 2 To Round(Sqrt(N)) Do

If N Mod I = 0 Then

Begin

Priznak := False; {Введенное число не является простым}

Log_Per := False; {Логическая переменная, принимающая значение True,

если нашлись делители I, отличные от 1 и I}

Vsp := 2;

Repeat

If (I Mod Vsp = 0) And (I <> Vsp) Then Log_Per := True;

Vsp := Vsp + 1

Until (Vsp > I Div 2 + 1) Or Log_Per;

If Not(Log_Per) Then WriteLn(I) {Если число I простое, печатаем его}

End;

If Priznak Then WriteLn(N)

End.

Предлагаем читателю самостоятельно разобраться с представленным решением.