Вычислить контрольное число данной записи - Pascal ABC

Формулировка задачи:

У меня дано любое число формата x.xxx.xxx. Как вычислить контрольное число этой записи?? Заранее благодарен !

Код к задаче: «Вычислить контрольное число данной записи - Pascal ABC»

textual
Function KC(A : Longint) : Byte;
Var
  n1,n2 : Byte;
  fl    : Boolean;
Begin
  n1:=0; n2:=0; Fl:=True;
  While A>0 do
  Begin
    If Fl then n1:=n1+(A mod 10) else n2:=n2+(A mod 10);
    Fl:=not Fl;
    A:=A div 10;
  end;
  n1:=n1*3+n2;
  If n1 mod 10 = 0 then KC:=0 else KC:=10-(n1 mod 10);
end;
 
Begin
  Writeln(KC(1234456));
end.

8   голосов, оценка 4.625 из 5


СОХРАНИТЬ ССЫЛКУ