請教一下...在下列中數字

22 31 44 55 66 77 88 00
06 11 12 19 27 39 28 99

如何知道 0至9的拾位有多少個? 及 0至9的個位有多少個?

> 如何知道 0至9的拾位有多少個?
每一個數字的 十位數 都是 0 到 9 啊 , 共 16 個

> 及0至9的個位有多少個?
每一個數字的 個位數 都是 0 到 9 啊 , 共 16 個

不知道你想問什麼

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

0的拾位數有多個
1的拾位數有多個
.
.
.
9的拾位數有多個

開個陣列
int i[10];
把 0 的個數存到 i[0]
把 1 的個數存到 i[1]
會用到
會用到 ASCII -> int 的技術。
或是用到 atoi.
然後你就可以知道答案了。

===================引 用 文 章===================
請教一下...在下列中數字

22 31 44 55 66 77 8800
06 11 12 19 27 39 28 99

如何知道 0至9的拾位有多少個?及0至9的個位有多少個?

procedure TForm1.FormCreate(Sender: TObject);
const
values: array[1..16] of Integer =
(22,31,44,55,66,77,88,00,
06,11,12,19,27,39,28,99);
var
counts : array[0..9] of Integer;
counts2 : array[0..9] of Integer;
i , j , k: Integer;
begin
for i:=0 to 9 do
begin
counts[i]:=0;
counts2[i]:=0;
end;
for i:=1 to 16 do
begin
j := values[i] div 10;
k := values[i] mod 10;
counts[j] := counts[j] 1;
counts2[k] := counts2[k] 1;
end;
Memo1.Clear;
Memo1.Lines.Add('10位數');
for i:=0 to 9 do
Memo1.Lines.Add(IntToStr(i) ' : ' IntToStr(counts[i]) ' 個');
Memo1.Lines.Add('------------------');
Memo1.Lines.Add('個位數');
for i:=0 to 9 do
Memo1.Lines.Add(IntToStr(i) ' : ' IntToStr(counts2[i]) ' 個');
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

> 如果下列的數字是在 Memo1.Lines.text 中;
> values: array[1..16] of Integer =(22,31,44,55,66,77,88,00,06,11,12,19,27,39,28,99);該如何改寫呢? 謝謝!!
在 Delphi.Ktop 中, 只要是你發文或回帖過的討論文章, 有新的回覆出現, 都會收到通知信件, 不需要特別私下寄信給我
procedure TForm1.FormCreate(Sender: TObject);
var
values : array[1..16] of Integer;
counts : array[0..9] of Integer;
counts2 : array[0..9] of Integer;
i , j , k: Integer;
v: String;
begin
for i:=0 to 9 do
begin
counts[i]:=0;
counts2[i]:=0;
end;
for i:=1 to 16 do
begin
v := Memo1.Lines[i-1]; // Memo1 是從第 0 行開始算起
values[i] := StrToInt(v);
j := values[i] div 10;
k := values[i] mod 10;
counts[j] := counts[j] 1;
counts2[k] := counts2[k] 1;
end;
Memo1.Lines.Add('10位數');
for i:=0 to 9 do
Memo1.Lines.Add(IntToStr(i) ' : ' IntToStr(counts[i]) ' 個');
Memo1.Lines.Add('------------------');
Memo1.Lines.Add('個位數');
for i:=0 to 9 do
Memo1.Lines.Add(IntToStr(i) ' : ' IntToStr(counts2[i]) ' 個');
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

很難看懂你的中文
是這樣吧

個位數為 0 的有幾個 個位數為 1 的有幾個 ..... 個位數為 9 的有幾個
十位數為 0 的有幾個 十位數為 1 的有幾個 ..... 十位數為 9 的有幾個