PhanTrang271209

Bài 2: Bsname Năm nay bé Khoai học lớp 1. Do rất thông minh nên việc học trở nên rất đơn giản đối với bé. Để tránh bé tự cao và ảo tưởng về bản thân, cô giáo luôn đưa ra những câu hỏi và bài tập khủng khiếp cho Khoai. Bài tập lần này của Khoai là đọc tên các đồ vật. Tên các đồ vật cô đưa ra chỉ gồm 1 từ , từ này chứa từ 1→10 mũ 5 chữ cái, các chữ cái là các kí tự in thường từ a tới z . Sau khi đưa ra đồ vật cho Khoai đọc tên, cô yêu cầu bé đưa ra số lần xuất hiện của mỗi kí tự từ a tới z. Dữ liệu vào: Gồm 1 dòng duy nhất ghi tên đồ vật. Kết quả: Gồm 1 dòng duy nhất ghi 2 số nguyên tương ứng là số lần xuất hiện của các kí tự từ a tới z. Cảm ơn mn!

Xem đáp án

2 câu trả lời

Trung Đức

trangiahuy98911711
17/08/2021

program Hello;
uses crt;
var s:ansistring;
i:longint;
a:array[97..122] of longint;
begin
readln(s);
for i:= 1 to length(s) do
inc(a[ord(s[i])]);
for i:= 97 to 122 do
write(a[i], ' ');
readln;
end.

Lylinguyen

1 năm trước

uses crt;
var S:ansistring;
A:array['a'..'z'] of word;
i:word;
ch:char;
begin
write('Nhap S=');readln(S);
for i:=1 to length(S) do inc(A[S[i]]);
for ch:='a' to 'z' do write(A[ch],' ');
readln
end.