Найдите 20 первых натуральных чисел,больше 500 и кратные 13 или 17. ПАСКАЛЬ

Question

Найдите 20 первых натуральных чисел,больше 500 и кратные 13 или 17. ПАСКАЛЬ

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (k, n) := (500, 0);

 repeat

   if (k mod 13 = 0) or (k mod 17 = 0) then

   begin

     k.Print;

     n += 1

   end;

   k += 1

 until n = 20

end.

---

Comments

А можно через while ??

---

Можно, while n<20 do begin ...

---

Спасибо !