Kiểu dữ liệu có cấu trúc

hien nguyen

Viết chương trình nhập từ bàn phím xâu A, tính và đưa ra màn hình số lượng chữ A in hoa có trong xâu trên

Trương Hồng Hạnh
27 tháng 3 2019 lúc 12:09

program so_luong_chu_A;

uses crt;

var

st:string;

i,dem:integer;

begin

clrscr;

writeln('Moi nhap xau :',st); readln(st);

dem:=0;

for i:=1 to length(st) do

begin

if (st[i]='A') then inc(dem);

end;

writeln(dem);

for i:=1 to dem do write('A');

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Ngô Thành Chung
Xem chi tiết
Lan Anh
Xem chi tiết
mqthien2801
Xem chi tiết
Ard Meteor
Xem chi tiết
09 Lê Quang HIếu
Xem chi tiết
Huyền Trang
Xem chi tiết
Đoàn Thị Thu Hà
Xem chi tiết
Thùy An
Xem chi tiết
PEACH A
Xem chi tiết