Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Uses crt;
Var st:string;
I,d:integer;
Begin
Clrscr;
Write('nhap xau:'); readln(st);
D:=length(st);
While st[d]=#32 do
Begin
Delete(st,d,1);
D:=length(st);
End;
For i:=1 to d do
If (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);
Writeln(st);
Readln;
End.
Uses crt;
Var st:string;
I,d:integer;
Begin
Clrscr;
Write('nhap xau:'); readln(st);
D:=length(st);
While st[d]=#32 do
Begin
Delete(st,d,1);
D:=length(st);
End;
For i:=1 to d do
If (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);
Writeln(st);
Readln;
End.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if (st[i]='a') or (st[i]='A') then st[i]:='b';
writeln(st);
readln;
end.
Câu 2: Hãy chọn phương án ghép đúng nhất. Thủ tục chuẩn Insert(S1,S2,vt) thực hiện:
A. Chèn xâu S1 vào S2 bắt đầu từ vị trí vt
B. Chèn xâu S2 vào S1 bắt đầu từ vị trí vt
C. Nối xâu S2 vào S1
D. Sao chép vào cuối S1 một phần của S2 từ vị trí vt
var i,g1,g2:longint;
s1,s2:string;
begin
readln(s1);
readln(s2); //Nhập vào xâu s1 và s2.
writeln(length(s1)); //Hàm length là hàm tính độ dài của xâu, writeln độ dài của xâu s1.
writeln(length(s2)); //writeln độ dài của xâu s2.
for i:=1 to length(s1) do
if s1[i]='g' then
inc(g1); //nếu có một phần tử của s1 là 'g' thì cộng vào biến đếm g1.
for i:=1 to length(s2) do
if s2[i]='g' then
inc(g2);
if g1<>g2 then
if g1>g2 then writeln('xau s1 co nhieu ki tu g hon xau s2.')
else writeln('xau s1 co it ki tu hon xau s2.')
else writeln('xau s1 co so ki tu g bang xau s2.')
end.
uses crt;
var s1,s2:string[100];
d1,d2,dem,dem1,i,j:integer;
begin
clrscr;
write('nhap xau S1:'); readln(s1);
write('nhap xau S2:'); readln(s2);
d1:=length(s1);
d2:=length(s2);
writeln('do dai xau S1 la: ',d1);
writeln('do dai xau S2 la: ',d2);
writeln;
dem:=0;
dem1:=0;
for i:=1 to d1 do
if s1[i]='g' then inc(dem);
for j:=1 to d2 do
if s2[j]='g' then inc(dem1);
if dem>dem1 then writeln('trong xau s1 co nhieu ky tu g hon xau s2');
if dem1>dem then writeln('trong xau s2 co nhieu ky tu g hon xau s1');
readln;
end.