Here are some of the results in MySQL:
begin {Main}
ClrScr;
write(‘n=’); readln(n);
writeln;
Simp(n,g1);
eps:=-1; l:=0;
repeat
n:=2*n;
Simp(n,g2);
eps:=abs(g1-g2);
g1:=g2;
l:=l+1;
until (eps100);
if l>100 then writeln(‘rozbigna’)
else begin
writeln(‘g=’,g2);
writeln(‘n=’,n);
writeln(‘l=’,l);
end;
readln;
end. {end Main}
If you can help me with it, I’d be glad to share the ideas on the database. Hope to find the next key to the tech item.

[...] Daily Find #103 (Tim Boland) [...]

Here are some of the results in MySQL:

begin {Main}

ClrScr;

write(‘n=’); readln(n);

writeln;

Simp(n,g1);

eps:=-1; l:=0;

repeat

n:=2*n;

Simp(n,g2);

eps:=abs(g1-g2);

g1:=g2;

l:=l+1;

until (eps100);

if l>100 then writeln(‘rozbigna’)

else begin

writeln(‘g=’,g2);

writeln(‘n=’,n);

writeln(‘l=’,l);

end;

readln;

end. {end Main}

If you can help me with it, I’d be glad to share the ideas on the database. Hope to find the next key to the tech item.