Задача по Паскалю 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 прерывает цикл и на выполнение идет следующий оператор за циклом.
Не нашли ответ?
Похожие вопросы