viết chương trình nhập từ bàn phím một xâu ký tự bất kỳ (không quá 250 ký tự) sau đó hiệu chỉnh xâu nhập vào sao cho xâu đó trở thành xâu đặc biệt

lenguyenloc2004

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 20 xem

1 trả lời

Thích Trả lời

cutrang2k4

Program ABC;

Uses Crt;

var max,i,n: integer;

x,s: string;

d: array['A'..'z'] of integer;

l: char;

begin

readln(x);

for i:=1 to length(x) do

inc(d[x[i]]);

for i:=1 to length(x) do if pos(x[i],x)=i then s:=s+x[i];

for l:='A' to 'z' do if d[l]<>0 then

if d[l]>max then max:=d[l];

for l:='A' to 'z' do if d[l]=max then begin write(l); break; end;

readln;

end.

Bạn ấy CTRL F9 ĐỂ CHẠY CHƯƠNG TRÌNH NHÉ

Vote (0) Phản hồi (0) 2 năm trước

dangxuanchinh5

var max,i,n: integer;

x,s: string;

d: array[‘A’..’Z’] of integer;

l: char;

begin

readln(x);

for i:=1 to length(x) do

inc(d[x[i]]);

for i:=1 to length(x) do if pos(x[i],x)=i then s:=s+x[i];

for l:=’A’ to ‘Z’ do if d[l]<>0 then

if d[l]>max then max:=d[l];

for l:=’A’ to ‘Z’ do if d[l]=max then begin write(l); break; end;

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

nêu tên tất cả các hình học trong toán học có trục đối xứng

Giúp mình với các bạn ơi ! Tóm tắt bài thơ bằng văn xuôi bài thơ sau : Hoa phấn Có một loài hoa màu trắng Bay trên tóc thầy bâng khuâng Tôi gọi tên là hoa phấn Thuở còn đi học xa xăm Hoa nhỏ mềm hơn hạt bụi Mười mấy mùa ve xa rồi Đi suốt chiều dài lửa khói Hoa vương vấn mãi lòng tôi Chiều nay gặp loài hoa ấy Bay trên bục giảng bồi hồi Thầy tôi đâu còn đứng đấy Những ngày hoa bướm đâu rồi Nhớ quá giọng thầy trầm ấm Bàn tay êm ái xoa đầu Thầy tôi giờ già yếu lắm Chắc không còn nhớ tôi đâu Tôi không còn nữa tuổi thơ Để dâng thầy chùm hoa thắm Quà của tôi là lẽ sống , Như thầy không gợn bùn nhơ .

Giúp e câu này vs E sẽ vote và bình chọn câu trả lời hay nhất ạ

Hãy kể tên các tỉnh có diện tích rừng chiếm tỉ lệ trên 60% so với diện tích toàn tỉnh

1 bạn học sinh viết liên tiếp các số tự nhiên mà khi chia cho 3 dư 2 bắt đầu từ số 5 thành dãy số. viết đến số hạng thứ thì phát hiện đã viết sai. hỏi bạn đó đã viết sai số nào? cho dãy 5;8;11;14;....;.......;.......;.......;.........;....... nếu cứ viết tiếp thì các số: 1000;2009;5000. có là số hạng của dãy ko? để ghi thứ tự của những ngôi nhà trên 1 đường phố người ta dùng các số chẵn:2;4;6;8;... để ghi các nhà ở bên phải và các số lẻ:1;3;5;7;....để ghi các nhà ở bên trái. hỏi số nhà cuối cùng của đường phố đó là bao nhiêu, biết rằng khi đánh thứ tự của các nhà dãy cần 367 lượt chữ số

Bài 6: Hòa tan hoàn toàn 16,2g Kẽm oxit vào dung dịch axitsunfuric 9,8%. a) Viết pt phản ứng b) Tính khối lg dd Axitfunsuric đã dùng c) Tính nồng độ % dd muối thu đc sau phản ứng Giúp mình!

Hãy viết một bài văn nêu cảm nhận của em về lũ lụt ở miền Trung, từ đó nêu tinh thần "lá lành đùm lá rách" của người dân ta.

Câu 10 :If you have anh questions about health ,you can ask our..... A.Vegetarian B.Expert C.triathlon D.cough

em mình nhờ mình mà mình ko biết các bạn giúp mình với ; EM HÃY VIẾT MỘT ĐOẠN VĂN TẢ CẢNH SÔNG ĐA ĐỘ lưu ý ko chép mạng kẻo em mình bị cô mắng đoạn văn nhá ko phải bài văn xin các cậu

Bài 4: Cho hình vẽ biết góc A1=35 độ, góc B1=140 độ, góc O=75 độ từ O kẻ đường thẳng mn // với đường thẳng xy a) CM: xy // zt b) CM: đường thẳng AO cắt đường thẳng zt

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến