Хелп ми плиз!

Тема в разделе "Visual Basic", создана пользователем PeaceDuqe, 5 янв 2009.

  1. PeaceDuqe

    PeaceDuqe Гость

    Нужно проверить утверждение, что разность любого натурального числа и суммы его цифр кратна 9, для всех чисел, лежащих между заданными m и n.

    Как ето делатса? :huh:
     
  2. Gamlet

    Gamlet Well-Known Member

    Регистрация:
    8 янв 2007
    Сообщения:
    609
    Симпатии:
    0
    Код (Text):
    Dim ch as long
    Dim ch2 as string
    Dim ch3 as long
    dim is2 as string

    For i=m to n
    is2=i
    1
    ch2=mid(is2,ii,1)
    ch3=ch2
    ch=ch+ch3
    if ch2<>"" then goto 1
    msgbox "число"+is2
    msgbox "сумма цифр"+ch
    ii=ii+1
    next
    Вот считается то и то. Писал не проверая. Прога выдает сумму цифр. Дальше сам разберешься?
     
Загрузка...

Поделиться этой страницей