Giúp tin với mọi người ơi ! :*_*

[hocviencsnd]

[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 Vào 1 số có 2 chữ sốin ra màn hình cách đọc số đó !

Giúp t với ...Thanks !

 

[11thanhkhoeo]

TYPE ST=STRING;
VAR N:BYTE;

FUNCTION  DOC(K:BYTE)st;
BEGIN 
if k= 1 then doc:='mot' ;
if k= 2 then doc:='hai' ;
if k= 3 then doc:='ba' ;
if k= 4 then doc:='bon' ;
if k= 5 then doc:='nam' ;
if k= 6 then doc:='sau' ;
if k= 7 then doc:='bay' ;
if k= 8 then doc:='tam' ;
if k= 9 then doc:='chin' ;
end; 

begin 
   write('nhap n');
   readln(n) 
   if n div  10 =1 then
        write( ' muoi ', doc(n mod 10))
   else 
        write( doc(n div 10),' muoi ', doc(n mod 10));
   readln 
end.

Thân

Chúc em học tốt