John von Neumann: Rozdiel medzi revíziami
Smazaný obsah Přidaný obsah
d Revízia 5713407 používateľa 193.87.169.66 (diskusia) bola vrátená – experimenty |
Bez shrnutí editace |
||
Riadok 53:
* [[Koncepcia Johna von Neumanna]]
* [[Teória hier]]
function prvocislo(cislo: integer):boolean;
var
i : integer;
begin
result := true;
for i := 2 to cislo div 2 do
if cislo mod i = 0 then result := false;
end;
var
i,j,k : Integer;
begin
j := 1;
k := 1;
for i := 501 to 1000 do
begin
if prvocislo(i) = true then
begin
Image1.Canvas.Textout(j*30,k*20, IntToStr(i));
if j<10 then j := j + 1
else
begin
j := 1;
k := k+1;
end;
end;
end;
end;
== Iné projekty ==
| |||