Skip to content

Instantly share code, notes, and snippets.

@tuankiet65
Last active December 14, 2015 19:08
Show Gist options
  • Save tuankiet65/5134011 to your computer and use it in GitHub Desktop.
Save tuankiet65/5134011 to your computer and use it in GitHub Desktop.
Nhập vào 1 số nguyên dương n. xuất ra tất cả các số có n chữ số
program bt1;
uses crt;
var n: longint;
i, b, e: int64;
begin
clrscr;
write('Nhap n: ');
readln(n);
b:=1;
e:=b*10-1;
if n=1 then b:=0;
if n<>0 then
for i:=b to e do writeln(i);
readkey;
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment