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

[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

[мисс_граффити]

1.

М

Все тексты программ должны помещаться в теги code=pas ... /code.

Исправляй.

2. А что ты хочешь изменить? Чтобы без строк, чисто с числом шла работа?

[Bold]

Изменить хочубчтоб вид записи попроще былбтип как в школе еще.НО ВСЕРАНО СПОСИБО ЗА РЕШЕНИЕ

[Ozzя]

Изменить хочубчтоб вид записи попроще былбтип как в школе еще.

А ты думаешь, кто эту задачу решал?
Семиклассники, так что вполне как в школе.
Или вы еще строки не изучали?
Тогда копай в сторону mod, div