Написать программу вывода ** экран всех простых чисел до 200

Question

Написать программу вывода на экран всех простых чисел до 200

Comments

с++ пойдет?

---

на паскале можно

---

вывод все простые числа до заданого значения

---

выводит

Answer 1

program PrimesToN;
var i, k, n, count: word;
begin readln(n); for k := 1 to n do begin count := 0; for i := 1 to k do begin if k mod i = 0 then inc(count) end; if count = 2 then write(k, ' ') end end.

Comments

спс