Довідник:одиниці вимірювання, система числення, час у різних країнах, Детальна інформація

sResult:=sResult+'мiльярд'+endMlx;

end;

7:if IsMln then

begin

if IsRange1019 then endMlx:=ov+suffBL else

if currNum='1' then endMlx:=suffBL else

if (currNum='2')or(currNum='3')or(currNum='4') then

endMlx:=aa+suffBL else endMlx:=ov+suffBL;

sResult:=sResult+'мiльйон'+endMlx;

end;

10:if IsTha then

begin

if IsRange1019 then endMlx:=suffBL else

if currNum='1' then endMlx:=aa+suffBL else

if (currNum='2')or(currNum='3')or(currNum='4') then

endMlx:=ii+suffBL else endMlx:=suffBL;

sResult:=sResult+'тисяч'+endMlx;

end;

end;{case}

if i IN [4,7,10,13] then IsRange1019:=false;

end;{IF}

end;{FOR}

Result:= copy(sResult,0,length(sResult)-1);

if Result[length(Result)]='ь' then SetLength(Result, length(Result)-1);

end;

end.

PAGE

PAGE 13

В 1791 році відстань від Північного Полюса до екватора була за означенням прирівняна до 107 м. За сучасним означенням метра ця відстань становить на 0.02% більше ніж 107 м.