Názory ke článku Prvočísla – Programujte.com

Neřekl bych, že to je záležitost několika sekund, pokud to má člověk sám od základu vymyslet. Naopak, je to výborné cvičení na logiku a použití pár základních příkazů cyklů a podmínek. Ale stojí to za to, ten pocit na konci, že na to mám!

Dá se to pak následně upravovat, aby to vytisklo n prvních prvočísel, apod....

sice sem jeste zacatecnik a pascal bereme ve skole jen 3/4roku tak se mi ten program zdal dost jednoduchy. treba prvocisla do 65...


var q:array[1..65] of boolean;
i,j:1..65;

begin
for i:=2 to 65 do begin
if not q[i] then writeln(i);

for j:=i to 65 do if (j mod i = 0) and (not q[j]) then q[j]:=true;
end;

readln;
end.