5. Определите и выведите на экран числа от 100 до 500, которые

5. Определите и выведите на экран числа от 100 до 500, которые делятся на 8 и 11 сразу.

Задать свой вопрос
2 ответа
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
range(100,500).Where(x-gt;(x mod 8=0) and (x mod 11=0)).Println();
end.
Var
  i:integer;

begin
  for i:=100 to 500 do
    if i mod 88 = 0 then Write(i,' ')
end.

Результат
176 264 352 440
Valja Izgomova
Разве в задании обозначено вывести сумму этих чисел?
Михаил Рюкерт
И правда...
Сюпаева Карина
Уж больно на "предшествующую" похожа и создатель вопроса тот же)))
Юра Кибирский
Та задача под номером 4. Эта под номером 5. Означает это разные задания.
Дарина Мухаморова
Cgfcb,j
Sashok Agasafjanc
Спасибо
Александр Демянчук
Пожалуйста
Инна Глашкина
Светло что разные, множители иные.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт