Moglibyście wytłumaczyć mi na czym to polega ? A o to przykład :
var j,k,m,n:longint;
begin
m:=strtoint(liczba_m.text);
n:=strtoint(liczba_n.text);
k:=1;
j:=0;
repeat
j:=j+1
if ((m mod j)=0 ((n mod j)=0) then
k:=j;
until
(j=m) or (j=n)
Wyznacz złożoność dla n=10 i m=2</delphi>