Кто может решить...скажите как пож - VB
Формулировка задачи:
Разработайте программу для решения следующей задачи: «Сто гномов едят одно яблоко весом в 200 грамм. Каждый гном откусывает одну сотую от того, что ему осталось и еще один грамм. Вычислить вес огрызка».
Решение задачи: «Кто может решить...скажите как пож»
textual
Листинг программы
Option Explicit Private Sub Комманда1_Click() Dim J Dim P Dim S P = 200 For J = 1 To 100 S = P * 0.01 + 1 'откусил очередной гном P = P - S 'осталось следующему Next J MsgBox P End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д