Program - Prvočísla :)

Program napísaný v jazyku Pascal.

program PrvocislaOk;

var
cislo:array[1..100] of integer;
prvocislo:array[1..100] of boolean;
i,j:integer;

begin
for i:=1 to 100 do begin
cislo[i]:=i;
prvocislo[i]:=true;
end;
for i:=2 to 100 do
if prvocislo[i]=true then begin
for j:=i+1 to 100 do begin
if (cislo[j]/i)=int(cislo[j]/i) then prvocislo[j]:=false;
end;
end;
for i:=1 to 100 do begin
if (prvocislo[i]=true) then writeln (cislo[i]);
end;
readln;
end.

Hodnotenie užitočnosti článku:

• ← Program - Prevod desiatkového čísla do 2,8,16-sústavy :)
• Program - Prvočísla a Rozklad na prvočinitele v jednom :) →