Помогите пожалуйста! Найти 100 первых простых чисел. Нарисовать блок-схему алгоритма к задаче
Помогите пожалуйста! Найти 100 первых простых чисел. Нарисовать блок-схему алгоритма к задаче
Гость
Ответ(ы) на вопрос:
ГостьНапишу программу на паскале, блок схему нет возможности нарисовать
P.S inc - это увеличение переменной на единицу. Удачи по иформатике)
_____________________________________________________________
var i, k, c, pr: int64;
begin
k := 1;
pr := 0;
while pr < 100 do
begin c := 0;
for i := 1 to k do begin
if k mod i = 0 then inc(c) end;
if c = 2 then begin write(k, ' ');
inc(pr) end;
inc(k) end;
end.
Не нашли ответ?
Похожие вопросы