StringGrid Gerade Zahlen Ausgeben

[tobey1990]

primzahlen & quadratzahlen hatten wir in der 11. schon im unterricht..
das war leichtes Spiel..

der quelltext zu quadratzahlen

VAR n,q,i:Integer;
begin
n:=StrToInt(EingabeEdit_n.Text);
FOR i:=1 TO n+1 DO
begin
q:=i*i;
stringgrid1.cells[2,i]:=IntToStr(q);
end;