Cách 1: Dùng for . . . do . . .
program in_so;
uses crt;
var i:integer;
begin
clrscr;
for i:=0 to 99 do
begin
if i<10 then write('0':4,i) else write(i:5);
if (i+1) mod 10=0 then writeln;
end;
readln;
end.
Cách 2: Dùng while . . . do . . .
program in_so;
uses crt;
var i:integer;
begin
clrscr;
i:=0;
while i<=99 do
begin
if i<10 then write('0':4,i) else write(i:5);
if (i+1) mod 10=0 then writeln;
i:=i+1;
end;
readln;
end.
Cách 3: Dùng Repeat . . . until . . .
program in_so;
uses crt;
var i:integer;
begin
clrscr;
i:=0;
Repeat
if i<10 then write('0':4,i) else write(i:5);
if (i+1) mod 10=0 then writeln;
i:=i+1;
until i>99;
readln;
end.
Kết quả chung: hình
