viết chương trình nhập vào 1 xâu bất kì gồm chữ cái và những số đếm xem trong xâu đó có bao nhiêu chữ cái và số

Question

haiyen · Answer

uses crt;

var s:string;

i,d1,d2:byte;

BEGIN

clrscr;

write(‘Nhap xau:’); readln(s);

d1:=0; d2:=0;

for i:=1 to length(s) do

if (s[i] in [‘a’..’z’]) or (s[i] in [‘A’..’Z’]) then

inc(d1)

else if s[i] in [‘0’..’9′] then inc(d2);

write(‘Co ‘,d1,’ chu cai,’,d2,’ chu so’);

readln

END.

Chúc bạn học tốt!

Trả lời

aivilan · Answer

program demchu_so;

uses crt;

var s:string;

i,dc,ds:byte;

begin

clrscr;

write(‘Nhap xau: ‘); readln(s);

dc:=0; ds:=0;

for i:=1 to length(S) do

if (s[i] in [‘a’..’z’]) or (s[i] in [‘A’..’Z’] then dc:=dc+1

else if s[i] in [‘0’..’9′] then ds:=ds+1;

write(‘Trong xau co tat ca ‘,dc,’ chu cai va ‘,ds,’ chu so’);

readln;

end.