|
|||
Скачать Сумма прописью
21.09.1994 var s:string; ... s:=Sum2text(99999999999); while s<>'' do writeln(lSplit(s)); Я прогнал по ней вот этот тест. uses Common; var a:comp; s:string; f:text; i:word; begin a:=0; assign(f,'test'); rewrite(f); for i:=1 to 1000 do begin writeln(f,a:19:0,' ',sum2text(a)); write(#13,a:19:0); a:=a+100100100100100.; end; close(f); end. | |||
© 2009–2024 Russian Pascal Developer Network.
Техническая площадка: ISBIZ Хостинг |