Question

ДАМ 50 БАЛЛОВ! Спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивает дневную норму на 10% СДЕЛАЙТЕ В VB

Answer 1

Dim days As Double 
Dim percent As Double 
Dim baseKM As Double 
Dim result As Double 
days = 7 
percent = 10 
baseKM = 10 
result = baseKM 
For i = 1 To days 
result += (result * percent) / 100 
Next 
Print(result)

Answer 2

К сожалению, я не могу написать программу на Visual Basic здесь в чате. Однако я могу дать вам алгоритм решения этой задачи:

1. Создайте переменную "distance" и присвойте ей значение 10 (количество километров, пройденных в первый день).
2. Создайте переменную "day" и присвойте ей значение 1 (номер текущего дня).
3. Создайте цикл, который будет выполняться 6 раз (это количество дней, в которые спортсмен будет бегать).
4. Внутри цикла увеличивайте переменную "distance" на 10% от ее текущего значения (то есть на distance * 0.1).
5. Увеличивайте переменную "day" на 1 (это будет номер следующего дня).
6. После завершения цикла выведите результат (количество километров, пройденных за 6 дней).

Вот пример кода на Visual Basic, который реализует данный алгоритм:

vbnetCopy code
Dim distance As Double = 10 'количество километров, пройденных в первый день
Dim day As Integer = 1 'номер текущего дня

For i As Integer = 1 To 6 'цикл, который будет выполняться 6 раз
    distance += distance * 0.1 'увеличиваем дистанцию на 10% от текущего значения
    day += 1 'увеличиваем номер дня на 1
Next

MsgBox("За 6 дней спортсмен пробежал " & distance & " км") 'выводим результат

Надеюсь, это поможет вам решить задачу!