Скачать Сумма прописью

21.09.1994
Скачать файл (2,44 Кб)

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.