Задача про100 гномов - VB

Узнай цену своей работы

Формулировка задачи:

Разработайте программу для решения следующей задачи: «Сто гномов едят одно яблоко весом в 200 грамм. Каждый гном откусывает одну сотую от того, что ему осталось и еще один грамм. Вычислить вес огрызка».

Решение задачи: «Задача про100 гномов»

textual
Листинг программы
Option Explicit
 
Private Sub Command1_Click()
Cls
Dim s As Integer, a As Double, n As Integer, Result As Double
s = 200
a = 0.99
n = 100
 
Result = s * (a ^ n) - (1 - a ^ n) / (1 - a)
Print Result;'Выводим на форму
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.071 из 5