Почему моя прога виснет? Опции

[Skrip]

У меня прога виснет если n> 2500 (примерно), при этом диспетчер задач не говорит, что она повисла. Почему?

Код

type sm_type=array [0..10000] of char;
var sm: sm_type;
st:string;
i,n,is,si: integer;

begin

n:=1;
While n<>0 do begin
  Write('>');
  readln(n);
case n of
0: exit end;

for i:=1 to n do begin
str(i, st);
 for is:=1 to length(st) do begin si:=si+1;
 sm[si]:=st[is] end;

end;
Writeln('Number ',n,'= ',sm[n]);
Writeln;
end;
end.

Сообщение отредактировано: Skrip - 16.11.2004 21:28

[Romtek]

прога то подходит, но я должен сделать ее сам

Уважаю!

Операции со строками очень непроизводительны. Более того, они неприменимы при работе с числами !