viết chương trình in ra tất cả các số có 1 chữ số viết chương trình in ra tất cả các số có 2 chữ số

viết chương trình in ra tất cả các số có 1 chữ số

progrm bai_giai;

uses crt;

var i:longint;

begin

clrscr;

for i:=0 to 9 do write(i,' ');

readln

end.

viết chương trình in ra tất cả các số có 2 chữ số

program bai_giai;

uses crt;

var i:longint;

begin

clrscr;

for i:=10 to 99 do write(i,' ');

readln

end.

Program Typlex_1;

Uses crt;

Var i: integer;

Begin

     Writeln('Cac so co 1 chu so: '); 

     For i:=1 to 9 do write(i,' ');

     Readln

End.

.

Program Typlex_2;

Uses crt;

Var i: integer;

Begin

     Writeln('Cac so co 2 chu so: ');

     For i:=10 to 99 do write(i,' ');

     Readln

End.