Натуральные числа - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста. Дана последовательность натуральных чисел произвольной длины. Найти сумму чисел заканчивающихся цифрой 0, наибольшее из таких чисел и номер этого числа в последовательности.

Решение задачи: «Натуральные числа»

textual
Листинг программы
Function Sum0(A() as integer, Optional p as integer=1)
   if (p > Ubound(A,1)) then
      Sum0=0
   elseIf (A(p) mod 10)=0 then
      Sum0=A(p)+Sum0(A,p+1)
   else
      Sum0=Sum0(A,p+1)
   end if  
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы