Вопрос по информатике:
Найти все простые числа в любом диапозоне используя 3 цикла в Паскале. Срочно!!
- 22.08.2018 11:43
- Информатика
- remove_red_eye 18007
- thumb_up 30
Ответы и объяснения 1
{В три цикла не получилось, только два}
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.
- 23.08.2018 07:39
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.