Division nur mit FOR Schlaufe

[brechi]

LOOP = Schleife: also warum keine while schleife
Ansonsten:

Delphi-Quellcode:

divx := 0;
modx := 0;
for i := 1 to x do
begin
  inc(modx);
  if modx = y then
  begin
    inc(dix);
    modx := 0; 
  end;
end;

vill so?