Составить программу в паскале которая находит наименьшее натуральное число n при котором...

Question

Составить программу в паскале которая находит наименьшее натуральное число 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)

Comments

ты попросил на паскале, а выложил в пример бейсик

---

тебе в бейсике надо или паскаль все же?

---

паскаль нужен, просто мне кидали подобные ответы

---

если что inc(n) это n:=n+1

---

повышает значение переменной на 1

Answer 1

Var i,n:integer;
begin
n:=1;
while 2*n<20 do<br>inc(n);
write('Наименьшее натуральное число n, при котором 2n>=20 равно ', n)
end.

Comments

А зачем Вы с нуля начинаете, если речь о натуральных числах? Ноль не является натуральным числом.

---

В любом случае это не меняет суть решения задачи, но на эффективность влияет, согласен

---

Не меняет, конечно, но логически неверно. С таким же успехом можно от -1000 начать