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

1

11thanhkhoeo

Mã:
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
 
Top Bottom