Найти все простые числа в любом диапозоне используя 3 цикла в Паскале. Срочно!!
Найти все простые числа в любом диапозоне используя 3 цикла в Паскале. Срочно!!
Гость
Ответ(ы) на вопрос:
Гость{В три цикла не получилось, только два}
var
x, d: integer;
l, r: integer;
begin
read(l, r);
if l < 2 then l := 2;
for x := l to r do
begin
d := 2;
while (x mod d <> 0) and (d*d < x) do
d := d + 1;
if x mod d <> 0 then
writeln(x)
end;
end.
Не нашли ответ?
Похожие вопросы