Nhập xâu S từ bàn phím và thực hiện
-tính chiều dài xâu s?
-đếm số lần chữ cái xuất hiện trong xâu

Question

Nhập xâu S từ bàn phím và thực hiện -tính chiều dài xâu s? -đếm số lần chữ cái xuất hiện trong xâu

minhguyrttuanh · Answer

program bai_giai;

uses crt;

var s:string;

i,j,d:byte;

tg:char;

begin

clrscr;

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

writeln(‘Chieu dai cua xau la: ‘,length(s));

d:=0;

for i:=1 to length(s) do

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

write(‘Co ‘,d,’ chu cai xuat hien’);

readln;

end.

thanhha · Answer

uses crt;

var s: string;

i,d: byte;

begin

clrscr;

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

for i:=1 to length(s) do

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

writeln (‘do dai cua xau s: ‘,length(s));

writeln (‘so lan xuat hien cua chu cai trong xau: ‘,d);

readln;

end.