Задача по Паскалю program prostoe; var a, b, i, v: longint; begin b := 0; writeln('Введите число'); readln(a); for v := 2 to a do begin for i := 2 to v - 1 do begin if v mod i = 0 then b := 1 else b := b; end; ...

Задача по Паскалю program prostoe; var a, b, i, v: longint; begin b := 0; writeln('Введите число'); readln(a); for v := 2 to a do begin for i := 2 to v - 1 do begin if v mod i = 0 then b := 1 else b := b; end; if b = 0 then writeln(v, ' Является простым') else writeln(v, ' Не является простым'); b := 0; end; end. Эта программа находит все простые числа от 2 до числа которое мы ввели, нужно чтобы она как только нашла первый делитель числа не проверяла остальные.
Гость
Ответ(ы) на вопрос:
Гость
if v mod i = 0 then b := 1 else b := b; эту строчку замени этой: if v mod i = 0 then begin b := 1; break; end else b := b; Оператор break прерывает цикл и на выполнение идет следующий оператор за циклом.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы