var k,x,m,i:integer; n,q:string; v:real; begin k:=memo1.lines.count; for i:=1 to (k-1) do val(memo1.lines[i],x); If (x mod 2=0) then begin m:=x*2; q:=inttostr(m); memo2.lines.insert(i,q); end else begin v:=x/2; n:=floattostr(v); memo3.lines.insert(i,n); end; end;
Четные числа первого поля нужно увеличить вдвое и перенести во второе поле, а нечетные уменьшить вдвое и перенести в третье.
memo3.lines.insert(i,n); - вот это как-то странно. Во-первых, чтобы это сработало, в memo3 должно быть изначально минимум 2 строки. А во-вторых, ты всегда вставляешь n, т. е. нечетные.
k,x,m,i:integer;
n,q:string;
v:real;
begin
k:=memo1.lines.count;
for i:=1 to (k-1) do
val(memo1.lines[i],x);
If (x mod 2=0) then
begin
m:=x*2;
q:=inttostr(m);
memo2.lines.insert(i,q);
end
else
begin
v:=x/2;
n:=floattostr(v);
memo3.lines.insert(i,n);
end;
end;
Четные числа первого поля нужно увеличить вдвое и перенести во второе поле, а нечетные уменьшить вдвое и перенести в третье.