Написать программу вывода на экран всех простых чисел до 200
Написать программу вывода на экран всех простых чисел до 200
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы