число делиться на 11, если разность между суммой цифр, стоящих на нечетных местах, и суммой цифр, стоящих на четных местах, кратно 11. Проверить этот признак для. всех натуральных чисел, не превосходящих заданного m, и вывести числа, кратные 11.
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
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.