viết chương trình in ra các số có 1 chữ số 2 chữ số 3 chữ số
2 câu trả lời
var so,hc,dv:integer;
begin
write('Nhap vao so co hai chu so ');readln(so);
hc:=so div 10;
dv:=so mod 10;
write('Tong cac chu so la ',hc + dv);
readln; and
uses crt;
var n,i:longint;
begin
clrscr;
write('cac so co 1 chu so la:');
for i:=0 to 9 do write(i:5);
writeln;
write('cac so co 2 chu so la:');
for i:=11 to 99 do write(i:4);
writeln;
write('cac so co 3 chu so la:');
for i:=100 to 999 do write(i:4);
readln
end.