Вывести ** экран все числа в промежутке от 1 до n. Которые делятся ** 2,3 и 5

Question

Вывести на экран все числа в промежутке от 1 до n. Которые делятся на 2,3 и 5

Comments

На каждое из них или хотя бы на одно из них?

---

Видимо, хотя бы одно

Answer 1

Var
 i,n:integer;
begin
 read(n);
 for i := 1 to n do
   if (i mod 2) * (i mod 3) * (i mod 5) = 0 then
   write(i,' ')
end.