Отыскать все четные числа, которые не делятся на 6 в спектре

Отыскать все четные числа, которые не делятся на 6 в диапазоне от 0 до N. Вывести их на экран

Задать свой вопрос
Камилла Членова
паскаль?
Лидия Агейчикова
Ох,да
1 ответ

begin

 readinteger('Введите N:').Range().Where(x -gt; (x mod 2 = 0) and (x mod 6 lt;gt; 0)).Print(',');

end.

Ульяна Измагилова
Что-то краткая.И мы не учили"Print"
Борис Галэнский
Внизу два файла там еще один вариант решения и приз
Ксения Авагина
Файлы,если правдиво не вижу
Егор Ходаченко
Они вроде только с компьютера видны
Арсений
Посмотрю.Верю,что есть.Я выложу еще задачки.Если сможешь, поможешь?
Константин Кукоцкий
Да
Vanka Maslan
Смотрите
Константин Бутромеев
Одна из этих задач
Вован Касков
Можно скрин файлов?
Valentina Nagorskih
var i, N: integer;begin write('Введите N:'); read(N); for i := 0 to N do if((i mod 2 = 0) and (i mod 6 <> 0)) then write(i, ' ');end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

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

Войти на сайт