• составить программу в паскале которая находит наименьшее натуральное число n при котором 2n>=20 и результат  наименьшее число n выводит на экран
    ----------------------------------------------------------------------------------------------------
    Это ↓ не работает
    ----------------------------------------------------------------------------------------------------
    Dim n As Integer

    For n = 0 To 100
    If 2 * n >= 20 Then Exit For
    Next
    MsgBox("наименьшее натуральное число n при котором 2n>=20 равно " & n)

Ответы 4

  • А зачем Вы с нуля начинаете, если речь о натуральных числах? Ноль не является натуральным числом.
  • В любом случае это не меняет суть решения задачи, но на эффективность влияет, согласен
  • Не меняет, конечно, но логически неверно. С таким же успехом можно от -1000 начать
  • var i,n:integer;beginn:=1;while 2*n<20 doinc(n);write('Наименьшее натуральное число n, при котором 2n>=20 равно ', n)end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years