pascal語言 輸入一串字元,比較出現最多的數字,如果兩個數字次數一樣一樣,就從小到大換行輸出

時間 2022-10-07 07:50:05

1樓:羅應送

樓主您好!

vars:string;

i,j,x,l,q:longint;

a,w:array[1..9] of longint;

begin

readln(s);

q:=length(s);

for i:=1 to q do

begin

val(s[i],x);

case x of

1:a[1]:=a[1]+1;

2:a[2]:=a[2]+1;

3:a[3]:=a[3]+1;

4:a[4]:=a[4]+1;

5:a[5]:=a[5]+1;

6:a[6]:=a[6]+1;

7:a[7]:=a[7]+1;

8:a[8]:=a[8]+1;

9:a[9]:=a[9]+1;

end;

end;

for i:=1 to 9 do

w[i]:=i;

for i:=1 to 8 do

for j:=i+1 to 9 do

if a[i]a[1] then begin x:=i-1; break; end;

for i:=1 to x do

writeln(w[i]);

end.

不懂歡迎追問!

2樓:

樓主,一串字元是指多少個字元?

c語言輸入一串數字然後求和,C語言 輸入一串數字然後求和

for i 0 buff i 0 i sum buff i 0 這句話是什麼意思?能解釋下嗎?大哥!回答者 shaocl112102 試用期 一級 2 5 09 30 把buff裡的字元逐個與字元 0 相減,哦,是他們的ascii碼相減,忘了0的ascii碼了,不過不管它是多少吧,反正1234567...

程式設計判斷輸入的一串字元是否為“迴文”。所謂“迴文”,是指順讀和倒讀都一樣的字串

include stdio.h void main void if i j 1 printf y else printf n 上述程式,編譯後執行,最多可以輸入200個字元,回車鍵結束,程式會自動輸出 y n。用指標來做 include stdio.h void main void 測出字串長度.j...

c語言 字串,輸入字元,編寫函式dstr將輸入的字元從字串中刪去。要求能調通

給你個參考參考,寫的很不錯的,不過不是我寫的啦 include char dstr char s,char c int main char str 1000 char ch printf 請輸入乙個字串 t gets str printf 請輸入要挖去的字元 t scanf c ch printf ...