Кто может решить...скажите как пож - 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

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

9   голосов , оценка 4.111 из 5
Похожие ответы