Also erstmal stellst sich da bei mir die Frage: Sicher dass du eine Net Anwendung programmieren willst?
Dann die Lösung^^:
Delphi-Quellcode:
uses
math;
Function IsPrim(zahl : Integer): boolean;
var
i: integer;
begin
result := true;
If zahl = 1 then
begin
result := false;
exit;
end;
For i := 2 to Trunc(sqrt(zahl))+1 do
begin
If ((zahl mod i) = 0) then
begin
result := false;
exit;
end;
end;
end;
Label1.Visible:=IsPrim(4);
Also es ist nicht die Lösung aber schon mal ein Ansatz wie du eine Primzahl erkennst! Das mit dem dass ale Zahlen die zwischen zwei liegen herausfinden würde ich mit einer for- Schleife angehen!
Also sowas wie for 4 to 50!