Помогите составить программку на QBasic, пожалуйста.

Помогите составить программку на QBasic, пожалуйста.

Задать свой вопрос
1 ответ
CLS
INPUT "t = ", t
i = 1
c = 1 / (i * (i + 1))
S = 0!
WHILE c gt;= t
S = S + c
i = i + 1
c = 1 / (i * (i + 1))
WEND
PRINT "S = "; S


Пример работы программы:

t = 0.0001
S =  .9900005
Странцев Артемка
Спасибо громадное, очень помог)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт