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