Помогите решить, а?

[Wep]

Описание и список команд

Есть три переменные A, B и C. С - индекс, переменная цикла ("моне лулаа", если кому-то поможет). А и В обычные переменные. Так же есть стек(? "махсанит"). Разрешается менять значение С в середине цикла.



read - получает число и сохраняет его в B.

print - печатает значение А.



add - a+b, сохраняется в A;

mul - a*b, сохраняется в A;

sub - a-b, сохраняется в A;

div - a/b, сохраняется в A;

inc - увеличить С на 1.

clear - обнулить А.



push (X), pull (X) - добавить в стек, вынуть из стека, Х - любая из переменных.



loop - повтори С раз. Если С в начале цикла было равно 0, получается бесконечный цикл.

end loop - конец цикла, пока С больше нуля - уменьшает его значение на 1 и повторяет цикл.

exit if A=B - прервать цикл если А = В и перейти к командам после строчки end loop.

finish - конец программы, обязательная команда в конце.





Получите N(любое число), потом получите N чисел. Если среди них есть два одинаковых числа подряд, остановите программу и напечатайте, сколько чисел успели получить. Если нет, получите новое N и повторите сначала.

Нужно уложиться в 22-е команды.

Comments

[*JeF*]

лол....ну ты сама то подумай...тут прям в задании всё написанно как и что =))) если уж оч. припрёт, могу алгоритм написать....синтаксис паскаля я незнаю

[Wep]

*JeF* Это не паскаль, это какой-то глючный язык. Мне нужно именно с помощью описанных выше команд, только ими можно пользоваться.



А мя глючит и не может придумать, как с условием быть... if'а-то нету, а без него, через все эти циклы... короче, туп я.

[*JeF*]

exit if A=B - прервать цикл если А = В и перейти к командам после строчки end loop.

а это что такое?

[Wep]

*JeF* Это прерывает цикл, а не обычный "иф". У него else нету...

[*JeF*]

ну так больше ж и ненадо ничего.....блин...всего то команды по местам расставить )))

[Wep]

*JeF* Ыыы! Не мучай, короче... Как енто все делается?

[*JeF*]

ну ты думаешь я уже решал её чтоль? не...нерешал....завтра попробую...щас спать уже нада )

Не-а, не возьмусь за это без ивритской инструкции. стек не описан нормально, не известно какое первоначальное значение С, все таки непонятно какие именно числа надо печатать в случае следования двух одинаковых... нуегонах.