Форум программистов [Powered by Invision Power Board]

Код

var
 C: Char;
begin
 Assign(Input, 'C:\Program Files\Borland\Delphi7\Projects\pascal\num.txt');
 Reset(Input);
 Assign(Output, 'C:\Program Files\Borland\Delphi7\Projects\pascal\outpu.txt');
 Rewrite(Output); 
 while not EOF do begin
   while not EOLN do begin 
     Read(C);
     case C of 
       '0': Write('íîëü');
       '1': Write('îäèí');
       '2': Write('äâà'); 
       '3': Write('òðè'); 
       '4': Write('÷åòûðå'); 
       '5': Write('ïÿòü'); 
       '6': Write('øåñòü'); 
       '7': Write('ñåìü'); 
       '8': Write('âîñåìü');
       '9': Write('äåâÿòü');
     else 
       if C = '.' then 
         WriteLn('.') 
       else 
         Write(C); 
     end; 
   end; 
   WriteLn;
 end; 
 Close(Input); 
 Close(Output);
end.