Повтор тела цикла

[gennadii]

Здравствуйте! У меня вот такая задача:
Сколько раз выполнится тело цикла:

p:=1; a:=1;
while p<60 do a:=2*a; p:=p*a;

у меня он ни разу не выполняется, так или нет? Спасибо. А ответ указывает, что выполняется! Но сколько не знаю.

[BDA]

В таком виде цикл бесконечен, т.к. р не меняется в цикле, а условие 1<60 всегда истинно.

[gennadii]

Подскажите как ввести символ бесконечность с клавиатуры, ввожу ALT+8734, а получается треугольник ▲???????

[Sciv]

А не проще сделать конечный цикл?

[gennadii]

Да дело в том, что здесь такое задание и исправить я его не могу, а могу вводить лишь ответы!!!

[Sciv]

ну так и введите слово "бесконечно"

[Вадим Мошев]

Это задание на тестирование такое? И ответ надо самому вводить?
ИМХО, нехорошо это.

[Arigato]

Есть подозрение, что препод забыл поставить begin ... end, либо вопрос с подвохом.

[Вадим Мошев]

Сообщение от Arigato

Есть подозрение, что препод забыл поставить begin ... end, либо вопрос с подвохом.

Признаюсь, я попался на этот подвох, правда об этом никто не узнал. Но если здесь действительно вопрос с подвохом, то что вводить в качестве ответа?

[Mad_Cat]

то что вводить в качестве ответа?

Дык ответили же

ну так и введите слово "бесконечно"