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

Question

Информатика

Плакида

26 февраля, 22:37

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

+4

Ответы (1)

Знаете ответ на вопрос?

Малана · 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.