Question

Составить программу в qbasic. В первый день спортсмен пробежал х км., кажду. следующую тренировку растояние увеличивалось на 5 %. Посчитайте в сумме, сколько пробежит спортсмен за 30 тренировок?

Answer 1

Dim x As real

Dim i As integer

INPUT x

FOR i=1 TO 30

x=x+(x*0.05)

NEXT i

PRINT x
END

 

П.С. не большая поправка верхнего решения, спасибо автору верхнего поста

Answer 2

INPUT x

a=x
FOR I=1 TO 30

a=a/100*105

x=x+a

NEXT I

PRINT x
END

 

 

P.S. Байсик я плохо знаю (пишу на c++), возможны синтаксические ошибки, но примерно программа должна выглядить так