Question

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

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
range(100,500).Where(x->(x mod 8=0) and (x mod 11=0)).Println();
end.

Answer 2

Var
  i:integer;

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

Результат
176 264 352 440

Answer 3

Для определения и вывода на экран чисел от 100 до 500, которые делятся на 8 и 11 одновременно, можно использовать цикл и условные операторы в языке программирования. Вот пример кода на Python, который выполняет эту задачу:

for num in range(100, 501):
    if num % 8 == 0 and num % 11 == 0:
        print(num)

В этом коде мы используем цикл `for` с переменной `num`, которая будет принимать значения от 100 до 500. Затем мы проверяем, делится ли `num` на 8 без остатка (`num % 8 == 0`) и одновременно делится ли на 11 без остатка (`num % 11 == 0`). Если оба условия выполняются, то число `num` выводится на экран с помощью функции `print()`.

Запустив этот код, вы получите на экране все числа от 100 до 500