Натуральные числа - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д