*In theo đề
program trong_cay;
uses crt;
var n,i,j,t:integer;
begin
clrscr;
write('Nhap N = '); readln(n);
t:=0; i:=1;
while t<n do
begin
t:=t+i;
for j:=1 to i do write(i);
i:=i+1;
end;
readln;
end.
*In đủ số N
program trong_cay;
uses crt;
var n,i,j,t:integer;
begin
clrscr;
write('Nhap N = '); readln(n);
t:=0; i:=1;
while t<n do
begin
for j:=1 to i do
begin
t:=t+1;
if t<=n then write(i);
end;
i:=i+1;
end;
readln;
end.
