ps same & money

大家...唉.....data和temp都不要出現就ok了...
前置和後置和(大家還是問一下yolanda的比較好,似乎我做的跟燦霖要求不太同..)
var
data:array[0..9] of integer;
a,b,c,p,s:integer;
begin
for a:= 0 to 9 do
  begin
    data[a]:=strtoint(memo1.Lines[a]);
  end;

p:=0; s:=0;
memo2.Lines.Clear;
for a:= 0 to 9 do
begin
p:=p+data[a];
s:=0;
  for b:= 9 downto 0 do
  begin
  s:=s+data[b];
  if p=s then memo2.Lines.add(format('the Presum at %d and Sufsum at %d both are %d',[a+1,10-b,s]));
  end;
end;
end;
end.

同構數
var a,data:integer;
begin
memo1.Lines.Clear;

for data:=1 to 999 do
begin
case data of
1..9: a:=sqr(data) mod 10;
10..99: a:=sqr(data) mod 100;
100..999: a:=sqr(data) mod 1000;
 end;
if data=a then
memo1.lines.add(inttostr(data));

end;
end;
end.

還有之前的付款機
var
a,x,y,z,ch,temp:integer;
data:array[1..9] of integer;

begin
x:=strtoint(edit1.text);
y:=strtoint(edit2.text);
ch:=y-x;
if ch>0 then
begin
data[1]:=1;
data[2]:=2;
data[3]:=5;
data[4]:=10;
data[5]:=20;
data[6]:=50;
data[7]:=100;
data[8]:=500;
data[9]:=1000;

z:=ch;
memo1.Lines.clear;

for a:=9 downto 1 do
begin
temp:=z div data[a];
z:=z mod data[a];
if temp>0 then
memo1.lines.add(format('%-4d 張 %d',[temp,data[a]]));
end;
memo1.lines.add(format('total: %d',[ch]));
end;

if ch<0 then
 begin
 memo1.clear;
 memo1.lines.add('NOT ENOUGH CASH');
 end;
if ch=0 then
begin
  memo1.clear;
  memo1.Lines.add('total:0');
end;
 end;

end.