подскажите другой способ решения Опции

[Bold]

число делиться на 11, если разность между суммой цифр, стоящих на нечетных местах, и суммой цифр, стоящих на четных местах, кратно 11. Проверить этот признак для. всех натуральных чисел, не превосходящих заданного m, и вывести числа, кратные 11.

Raznost,i,sumnech,sumch,k,code,chislo: Integer;
  Stroka: String;

begin
  Read(chislo);
  str(Chislo,Stroka);
  sumnech:=0;
  sumch:=0;
  for i:=1 to Length(stroka) do
  begin
    val(Stroka[i],k,Code);
    if odd(i) then
      sumnech:=sumnech+k
    else
      sumch:=sumch+k
  end;
  Raznost:=abs(sumch-sumnech);
  if raznost mod 11 = 0 then
    writeLn('Delitsya na!')
  else
    writeLn('Ne delitsya na!')
end.

Сообщение отредактировано: Bold - 26.05.2007 6:51