121/11 YES!, Проверка делимости. Опции

[Cheburashka]

Для делимости числа на 11 необходимо, чтобы разность между суммой цифр, стоящих на четных местах, и суммой цифр, стоящих на нечетных местах, делилась на 11.

Приведу небольшие примеры:
121/11=11. Вывод: yes;
1211/11=110,(09). Вывод: no;

Я в принципе понимаю что данная задача лёгкая, но я хочу поинтересовться по поводу условия задачи:
Там написано, цитирую:

"...чтобы разность между суммой цифр, стоящих на четных местах, и суммой цифр, стоящих на нечетных местах, делилась на 11."

Если подбирать под мой пример(1), то я так понимаю это выглядит так: 2-(1+1)/11.
Как видите по примеру нельзя вычислить что данное число делится на 11.

ОБЪЯСНИТЕ СМЫСЛ!

[Krjuger]

Я немног оне согласен, с реализацией,если ты читаеш и файла зачем тебе строка?Я бы сделал так.

program metro;
  var i,j,sum,ibr,cod:integer;
      ch:string[1];
begin
  j:=1;
  while not eol(fin)  do{таже самая строка,только не запоминаем,как переменную и еще я точно не помню,либо eol(fin) либо еоln(fin)}
    Begin
      read(fin,ch);
      Val(ch,ibr,cod);
      inc(j);
      If j mod 2=0 then Sum:=Sum-ibr
                   else Sum:=Sum+ibr;
    End;
  If (sum=0) or (sum mod 11=0) then Write ('YES')
                               else Write ('NO');
End.

просто зачем тебе полная строка, если ты туда записываеш всего 1 элемент,да и чтобы строку пройти не обязательно ее считывать и запоминать длинну.Я бы вообще использовал на твоем месте не стоку,а чар,тогда и процедура val ушла бы,но тогда надо было бы делать функцию chartoint.

Сообщение отредактировано: Krjuger - 27.05.2009 16:57