Код
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.
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 -