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

Question

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

Answer 1

Var
  i:integer;

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

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

Comments

Разве в задании указано вывести сумму этих чисел?

---

И правда...

---

Уж больно на "предыдущую" похожа и автор вопроса тот же)))

---

Та задача под номером 4. Эта под номером 5. Значит это разные задания.

---

Cgfcb,j

---

Спасибо

---

Пожалуйста

---

Ясно что разные, множители другие.

Answer 2

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