Хыиуду » 16 дек 2006, 13:23
{В прошлый раз торопился на электричку, поэтому немеряно налажал}
s:='ONE HUNDRED AND TWENTY-FIVE'
sum:=0;
if pos('ONE',s)=1 then inc(sum,100);
if pos('TWO',s)=1 then inc(sum,200);
{.....до девяти}
if pos('TEN',s)<>0 then begin inc(sum,10); exit; end;
if pos('ELEVEN',s)<>0 then begin inc(sum,11); exit; end;
{... до 19}
if pos('TWELWE',s)<>0 then inc(sum,20);
if pos('THIRTY',s)<>0 then inc(sum,30);
{до 90}
delete(s,1,1); {это чтобы избежать глюков с числами типа 121, 373}
if pos('ONE',s)>1 then inc(sum,1);
if pos('TWO',s)>1 then inc(sum,2);
{... до девяти}
{В прошлый раз торопился на электричку, поэтому немеряно налажал}
s:='ONE HUNDRED AND TWENTY-FIVE'
sum:=0;
if pos('ONE',s)=1 then inc(sum,100);
if pos('TWO',s)=1 then inc(sum,200);
{.....до девяти}
if pos('TEN',s)<>0 then begin inc(sum,10); exit; end;
if pos('ELEVEN',s)<>0 then begin inc(sum,11); exit; end;
{... до 19}
if pos('TWELWE',s)<>0 then inc(sum,20);
if pos('THIRTY',s)<>0 then inc(sum,30);
{до 90}
delete(s,1,1); {это чтобы избежать глюков с числами типа 121, 373}
if pos('ONE',s)>1 then inc(sum,1);
if pos('TWO',s)>1 then inc(sum,2);
{... до девяти}