(29-04-2019, 05:09 PM)S.FATEH كتب : السلام عليكم
الدالة حسب فهمي للخوارزمية ان لم اكن مخطأ

PHP كود :

function CalculCleNss(const NSS: string): Integer;
const
  AConst: Integer = 99;
var
  I, X1, X2, N: Integer;
begin
  X1 := 0;
  X2 := 0;
  for I := 1 to 10 do
  begin
    N  := StrToInt(NSS[I]);
    if Odd(I) then
       X2 := X2 + N * 2
    else
       X1 := X1 + N;
  end;
  Result := 99 - (X1 + X2);
end;