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

HN

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

TH
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ự
NC
Xem chi tiết
LA
Xem chi tiết
H24
Xem chi tiết
AM
Xem chi tiết
0H
Xem chi tiết
HT
Xem chi tiết
DH
Xem chi tiết
TA
Xem chi tiết
PA
Xem chi tiết