M меньше n, n и m естественные числа. Вывести на экран

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

Задать свой вопрос
Eva Rudishina
Какой язык?
Валентина
На паскале желанно
1 ответ

begin

 var m := 1;

 var n := 10;

 foreach var i in range(m, n) do

 begin

   var d := 2;

   while (d lt; i) and (i mod d lt;gt; 0) do d += 1;

   if d lt; i then Print(i)

 end

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт