Nhập sâu S đếm số lần lượt số lần xuất hiện mỗi kí tự trong sâu S ( không phân biệt chữ,số) vd : S = MADAM M : 2 A : 2 D : 1 Giải bằng ngôn ngữ pascal không phải c++ ạ !!! Cần gấp ạ !

thanhnam2606

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 33 xem

1 trả lời

Thích Trả lời

huonguneti1204

Đây là câu trả lời đã được xác thực

Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.

Program BTT;
Uses crt;
Var St: String;
i: longint;
d: array['A'..'Z'] of longint;
c: char;
Begin
Clrscr;
Write('Nhap St: '); Readln(St);

For i:=1 to length(St) do
St[i]:=UPCASE(St[i]);

For c:='A' to 'Z' do d[c]:=0;

For i:=1 to length(St) do
If St[i] in ['A'..'Z'] then
inc(d[St[i]]);
For c:='A' to 'Z' do
If d[c]>0 then
Begin
Write(c,' : ',d[c]);
Writeln;
End;
Readln
End.

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

nguyensonn2409

uses crt;

var s:string[30];

ch,x:char;

i:byte;

dem:array['A'..'Z']of byte;

begin

clrscr;

write('Nhap vao sau ki tu S=');

readln(s);

for ch:='A' to 'Z' do dem[ch]:=0;

for i:=1 to length(s) do

begin

x:=upcase(s[i]);

if (x>='A') and (x<='Z')

then

dem[x]:=dem[x]+1;

end;

for ch:='A' to 'Z' do

if dem[ch]<>0 then

writeln('So luong ki tu ',ch,'la ',dem[ch]);

readln;

end.

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

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

những bài tập vật lý khó thì ta có thể dùng những cách nào ạ thưa thầy.

Nhập sâu S đếm số lần lượt số lần xuất hiện mỗi kí tự trong sâu S ( không phân biệt chữ,số) vd : S = MADAM M : 2 A : 2 D : 1 Giải bằng ngôn ngữ pascal chứ không phải bằng c++ ạ!!! Cần gấp ạ !

Bùng nổ dân số xảy ra khi nào? Giúp mik với nha

Một vật chuyển động để theo chiều dương của trục Ox trong 5 giây nó đi được quãng đường 15 m tại thời điểm ban đầu có tọa độ là a Tính vận tốc của vật b Viết phương trình chuyển động và vẽ đồ thị thời gian của chuyển động này Mọi ng ơi giúp e với

Hãy viết 01 đoạn văn (khoảng 200 chữ) trình bày suy nghĩ của anh/chị về hiện tượng được đề cập trong văn bản ở phần Đọc - hiểu: “Ngày 21.9.2016, cộng đồng mạng xã hội vô cùng sửng sốt với clip một nam thanh niên tẩm xăng tự thiêu rồi nhảy xuống dòng kênh Tân Hóa - TP.HCM khi đã “gom” đủ 40.000 cú click vào nút “like” trên Facebook. Ít hôm sau, dư luận lại nhận thêm cú sốc từ hành động châm lửa… đốt trường của một nữ sinh lớp 8 tại Khánh Hòa cũng chỉ vì đã đủ “like” ủng hộ trên Facebook.”

Hãy giúp mình làm một bài tập thực hành môn địa này với nhé...!

cac to chuc cua lhq hien nay dang hoat dong o viet nam

tìm số hạng chứa x^8 trong khai triển (x+3)^6.(2x+1)^4

Pp giải câu 25 là j vại ai giải chi tiết giúp mình vs

(x +2y) ² - (x-2y) ² dùng đẳng thức 3

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