Помогите решить вопрос Опции

[Дядя_Вася]

Если а > b, то n=1. В противном случае n=0.
(если n=1 то следующий пункт, если 0 - то это окончательный ответ)

Если n=1 и (a-1)>b, то n=2. В противном случае n=1.
(если n=2 то следующий пункт, если 1 - то это окончательный ответ)

Если n=2 и (a-2)>b, то n=3. В противном случае n=2.
(-//-)

...

Если n=99 и (а-99)>b, то n =100. В противном случае n =99
(оба ответа окончательных)

Помогите решить это.
Заранее благодарен.

[Client]

a,b и n просто вводятся?

k := n;
if a - n > b then inc(n);
if n > k then ...

Как - то так

[Дядя_Вася]

a и b - вводятся
n надо найти

[Client]

пусть a = 300, b = 150
то все значения n от 0 до 99 будут подходить
300-0>150
300-1>150
...
300-99>150

[Дядя_Вася]

Спасибо

Сообщение отредактировано: Дядя_Вася - 30.04.2010 19:48

[volvo]

Помогите решить это.

Что решить-то? Найти N, которое будет в результате? Для этого совсем не обязательно проходить все этапы. Достаточно:

if a < b then n := 0
else 
  if a - b > 100 then n := 100 else n := a - b;

Если хочешь - можешь написать цикл и проверить...