Viết chương trình nhập 1 xâu vào từ bàn phím Hãy đếm xem trong xâu có bao nhiêu phần từ số

Để thêm trang tính ta sử dụng lệnh nào (Tin học - Lớp 7)

3 trả lời

Giải phương trình (Tin học - Lớp 8)

1 trả lời

Tính bằng cách nhanh nhất (Tin học - Lớp 5)

4 trả lời

Chọn đáp án đúng (Tin học - Lớp 7)

1 trả lời

Để thêm trang tính ta sử dụng lệnh nào (Tin học - Lớp 7)

3 trả lời

Giải phương trình (Tin học - Lớp 8)

1 trả lời

Tính bằng cách nhanh nhất (Tin học - Lớp 5)

4 trả lời

Chọn đáp án đúng (Tin học - Lớp 7)

1 trả lời

câu 1

Uses Crt;

Var St:String;

dem: Array[‘A’..’Z’] Of Byte;

i:Byte;

ch:Char;

Begin

Write(‘Nhap xau St: ‘); Readln(St);

{Khởi tạo mảng}

For ch:=’A’ To ‘Z’ Do dem[ch]:=0;

{Duyệt xâu}

For i:=1 To Length(St) Do

If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);

{Liệt kê các ký tự ra màn hình}

For ch:=’A’ To ‘Z’ Do

If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);

Readln;

End.

câu 2

var s:string;
i,dem:integer;
begin
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do
S[i]:=upcase(S[i]);
for i:=1 to length(s) do
if copy(s,i,3)='a' then inc(dem);
writeln('So tu "a" xuat hien trong xau la: ',dem);
readln
end.

câu 3

var s:string;beginclrscr;write('Nhap chuoi: ');readln(s);While (s[1]=' ') do Delete(s,1,1);While (s[Length(s)]=' ') do Delete(s,Length(s),1);While (Pos(' ',s)<>0) do Delete(s,Pos(' ',s),1);writeln('Xau sau khi xoa ki tu rong.',s);readln;

end.

câu 5

var s1,s2:string;
i:integer;
begin
clrscr;
write('Nhap xau: '); readln(s1);
s2:='';
for i:=1 to length(s1) do
if ('a'<=s1[i]) and ('z'>=s1[i]) then s2:=s2+s1[i];
writeln;
write(s2);
readln
end.