Цитата:
|
Сообщение от Gravitas.
Не совсем понял, что требуется... Но таки попытаю удачу.
Код:
label x;
var
c:integer;
begin
x:
c:=1;
while ((Memo1.lines.count<>2) and (C<=Memo1.Lines.Count)) do begin
c:=c+2;
Memo1.lines.Delete(c);
end;
if (Memo1.Lines.Count<>3) then goto x;
end;
Вот как то так. |
Существует легенда, что Иосиф Флавий - известный историк первого века - выжил и стал
известным благодаря математической одаренности. В ходе иудейской войны он в составе отряда из
41 иудейского воина был загнан римлянами в пещеру. Предпочитая самоубийство плену, воины
решили выстроиться в круг и последовательно убивать каждого третьего из живых до тех пор, пока
не останется ни одного человека. Однако Иосиф наряду с одним из своих единомышленников счел
подобный конец бессмысленным - он быстро вычислил спасительные места в порочном круге, на
которые посища. И лишь поэтавил себя и своего товартому мы знаем его историю.
так думаю яснее будет что должно получится!