program który grupuje liczby pierwsze po 20 w wierszach wypisuje je w listboxie.
function pierwsza (arg:integer):Boolean;
var I :Integer;
begin
pierwsza :=true;
for I:=2 to round(sqrt(arg)) do
if(arg mod I)=0 then pierwsza := false
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
S : string;
k,l,m : Integer;
begin
m := 0;
S := '';
k:=StrToInt(Edit1.Text);
for l:=2 to k do
begin
if pierwsza(l) then
begin
m:=m+1;
s:=s+inttostr(l)+' ';
end;
if l=k then listbox1.Items.Add(s);
if (m mod 20)=0 then
begin
listbox1.Items.add(s);
s:=' ';
end;
end;
end;
end.
mam mały problem z tym programem gdy jest do wypisania więcej niz 20 liczb program powinien przeskakiwac do kolejnej linijki i dalej je wypisywać
prawie tak działa tylko dopisuje niepotrzebna spacje nie wiem jak ją zlikwidować.
Proszę o Pomoc.