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.