我想請問各位一個Delphi程式的問題~題目是這樣的:
72斤的烏龍茶共計*679*元，要問2個**是多少?
還有每斤烏龍茶是多少錢?(是要整除的)
我用for迴圈寫，可是不曉得哪裡有錯，rum出來答案是錯的，程式如下:
var a,b,c,d,e:integer;
begin
for a:=0 to 9 do
for b:=0 to 9 do
c:=(a*10000 6*1000 7*100 9*10 b*1);
if d:=c mod 72;
d:=0;
then
e:=c div 72;
ShowMessage('72斤烏龍茶共計' IntTostr(c));
ShowMessage('每斤烏龍茶是' IntTostr(e));
end;
end.
如果用while寫法是怎麼樣呢?

var a,b,c:integer;
begin
a:=1;
while a<=9 do
begin
b:=1;
while b<=9 do
begin
c:=10000*a 6790 b;
if c mod 72 =0 then
begin
showmessage('72公斤的烏龍茶共計' inttostr(a) '679' inttostr(b) '元,每斤烏龍茶是' floattostr(c/72) '元');
exit;
end;
b:=b 1;
end;
a:=a 1;
end;
end;