Viết chương trình pascal, xuất ra màn hình các số có n chữ số Ví dụ Input 2 Output 10 11 12 13 .. 99
2 câu trả lời
Uses crt;
Var d,c,n,i:longint;
Begin
clrscr;
Write('n=');readln(n);
d:=1;
For i:=1 to (n-1) do
begin d:=10*d;
c:=(d*10)-1;
end;
For i:=d to c do writeln(i);
// Cách mình làm đó là tìm ra giới hạn của đầu và cuối, Giả sử n=4 thì đầu=1000, cuối=9999
uses crt;
var n,a,i:longint;
begin
clrscr;
write('n=');readln(n);
a:=1;
for i:=1 to n do a:=a*10;
for i:=a div 10 to a-1 do write(i,' ');
readln;
end.
Câu hỏi trong lớp
Xem thêm
