Версия для печати темы

Автор: Bold 26.05.2007 2:59

число делиться на 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.

Автор: мисс_граффити 26.05.2007 3:06

1.

М

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

Исправляй.

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

Автор: Bold 26.05.2007 10:44

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

Автор: Ozzя 26.05.2007 11:32

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