Хелп ми плиз!

  • Автор темы PeaceDuqe
  • Дата начала
P

PeaceDuqe

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

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

Gamlet

Well-known member
08.01.2007
525
0
#2
Код:
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
Вот считается то и то. Писал не проверая. Прога выдает сумму цифр. Дальше сам разберешься?