Задание:
Помогите пожалуйста с задайчей) дано натуральное число x и n найти сумму чисел от x до n
Решение:
VB.Dim x as Integerx=InputBox ("Введите x: ") Dim n as Integern=InputBox ("Введите n: ") Dim j as IntegerDim Summ As Long For j=x To n Summ=Summ+j Next i ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 MsgBox (Summ)
Знаете другой ответ?