Tin học Nhập một số sau đó in ra cách đọc số đó (bằng chữ)

[NguyênzZZ]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập một số sau đó in ra cách đọc số đó (bằng chữ)
Các số bé hơn 1000.
VD:
15 --> muoi lam (pascal ko có dấu)

 

[Trâm Nguyễn Thị Ngọc]

var
n,t,c,dv:integer;
begin
readln(n);
dv:=n mod 10;
c:=(n mod 100) div 10;
t:=n div 100;
if (dv=0) and (c=0) then
case t of
1: write('mot tram ') ;
2: write('hai tram ') ;
3: write('ba tram ') ;
4: write('bon tram ') ;
5: write('nam tram ') ;
6: write('sau tram ') ;
7: write('bay tram ') ;
8: write('tam tram ') ;
9: write('chin tram ');
end
else
if (t=0) and (c=0) then
case dv of
1: write('mot');
2: write('hai');
3: write('ba');
4: write('bon');
5: write('nam');
6: write('sau');
7: write('bay');
8: write('tam');
9: write('chin');
end
else
begin
case t of
1: write('mot tram ') ;
2: write('hai tram ') ;
3: write('ba tram ') ;
4: write('bon tram ') ;
5: write('nam tram ') ;
6: write('sau tram ') ;
7: write('bay tram ') ;
8: write('tam tram ') ;
9: write('chin tram ');
end;
case c of
0: write('linh ');
1: write('muoi ');
2: write('hai ');
3: write('ba ');
4: write('bon ');
5: write('nam ');
6: write('sau ');
7: write('bay ');
8: write('tam ');
9: write('chin ');
end;
case dv of
0: write('muoi');
1: write('mot');
2: write('hai');
3: write('ba');
4: write('bon');
5: write('nam');
6: write('sau');
7: write('bay');
8: write('tam');
9: write('chin');
end;
end;
readln
end.