Удаление строк в Memo

[qpuTuJlb]

Добрый день, у меня скоро зачёт по программированию, и одно из заданий будет такое: "Удалить из Memo все чётные строки". Как это сделать?

[Pein95]

уже не уверен но чтото вроде етого наверн):

for I := 0 to memo1.Lines.Count-1 do
begin
  if i mod 2 = 0 then
  memo1.Lines.Delete(i);
end;

[qpuTuJlb]

спасибо, а как написать такой код: "Код который будет возводить число в степерь квадрат до тех пор, пока оно не станет 6-значное"?

[Аватар]

Код в #2 бажный

for i := memo1.Lines.Count-1 downto  0 do
begin
  if i mod 2 = 0 then         //это если нуменумерацию считать как компьютер
//  if (i+1) mod 2 = 0 then         //это если нуменумерацию считать как человек
  memo1.Lines.Delete(i);
end;

[qpuTuJlb]

спасибо и тебе

[Mad_Cat]

возводить число в степерь квадрат до тех пор, пока оно не станет 6-значное"

while x<99999 do
x:=sqr(x);

[Hacker19_90]

while x<99999 do
x:=sqr(x);

x := 1;
while x<99999 do
  x:=sqr(x);