Войти
Регистрация
parrker
Публикации
Не указал
В теме: Проверка корректности РНН
16.04.2012, 13:57:33
Рахмет просто огромный за то, что перевели на понятный язык.Нда... ну и язык
.
Получается:function Check_RNN(rnn: string):boolean; var i, j, k, s, t: integer; begin for i:=1 to 10 do begin s:=0; t:=i-1; for j:=1 to 11 do begin inc(t); if t=11 then t:=1; s:=s+t*StrToInt(rnn[j]); end; k:=s mod 11; if k<10 then Break; end; Result:=(k=StrToInt(rnn[12])); end;Пасиб, вроде работает.
В теме: ООП в веб-приложениях
16.04.2012, 13:56:33
Как красивоДаже всеми известный public static void Main(String[] args) очень смахивает на шаблон Command.
Надо будет на досуге в курилке подкинуть эту тему.
