По паскалю пж Надрукуйте всі цілі числа з інтервалу [1; 50], що кратні 5 або 7.

Question

По паскалю пж Надрукуйте всі цілі числа з інтервалу [1; 50], що кратні 5 або 7.

Answer 1

For i:= 1 to 50 do
if (a[i] mod 5 =0) or (a[i] mod 7 =0) then writeln(a[i]);

Comments

слушай,а сможешь еще с одной задачкой помочь?Пж

---

да

---

Надрукуйте в рядок всі трьохзначні числа, сума цифр яких кратна 20.