Опубликовано 5 лет назад по предмету Информатика от Физика84

Паскаль
M меньше n, n и m натуральные числа. Вывести на экран числа от m до n которые не являются простыми

Ответ

Ответ дан Аккаунт удален

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018
Внимание! Если программа не работает, обновите версию!
function IsPrime(Self: integer): boolean; extensionmethod;
// является ли число простым ?
begin
if Self < 4 then Result := True
else
begin
var found := (Self mod 2 = 0);
var p := 3;
while (not found) and (sqr(p) <= Self) do
begin
found := (Self mod p = 0);
p += 2
end;
Result := not found
end
end;

begin
var (m, n) := ReadInteger2('Введите m и n:');
Range(m, n).Where(t -> not t.IsPrime).Println
end.
1. Ответ
  
  Ответ дан Сергей2407
  
  Да, в силу того, что эти делители должны быть различны)
2. Ответ
  
  Ответ дан Сергей2407
  
  В смысле "на простоту проверяют натуральные числа, начинающиеся от 2"?
3. Ответ
  
  Ответ дан Аккаунт удален
  
  Ну да. Но можно поправить, конечно, добавить проверку на значение 1.
4. Ответ
  
  Ответ дан Аккаунт удален
  
  В смысле того, что единицу на простоту не проверяют обычно..
5. Ответ
  
  Ответ дан Аккаунт удален
  
  Но если модератор захочет - даст ответ на исправление, я поправлю.

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.

Паскаль M меньше n, n и m натуральные числа. Вывести на экран числа от m до n которые не являются простыми

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

Информация

Паскаль
M меньше n, n и m натуральные числа. Вывести на экран числа от m до n которые не являются простыми