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