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

Question

Информатика

Селиван

28 июля, 12:35

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

+2

Ответы (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.