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.
var a,b:string;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if a[2] = b[length(b)-1] then write('Có trùng') else write('Không trùng');
readln
end.
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;
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.
tk
uses crt;
var st1:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st1);
d:=length(st1);
for i:=1 to d do
if (st1[i]='a') and (st1[i+1]='b') and (st1[i+2]='c') then delete(st1,i,3);
writeln(st1);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
string st,st1,st2;
int d,i;
int main()
{
getline(cin,st);
d=st.length();
st1="";
st2="";
for (i=0; i<=d-1; i++)
{
if (48<=st[i] && st[i]<=57) st1+=st[i];
else st2+=st[i];
}
cout<<st1<<st2;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i;
int main()
{
getline(cin,st);
d=st.length();
for (i=0; i<=d-1; i++)
if (48<=st[i] && st[i]<=57) st.erase(i,1);
cout<<st;
return 0;
}
xau = input('Nhập vào một xâu: ')
# In ra xâu đó theo thứ tự ngược lại
xau_nguoc = xau[::-1]
print('Xâu đảo ngược: ', xau_nguoc)
# Đưa ra độ dài của xâu
do_dai = len(xau)
print('Độ dài của xâu: ', do_dai)
# Đếm số lượng ký tự 'a' có trong xâu
so_luong_a = xau.count('a')
print('Số lượng ký tự a trong xâu: ', so_luong_a)
program kitu;
uses crt;
var i,j,k:integer;
s1,s2:string;
begin
clrscr;
write('nhap xau:')readln(s1);
s2:='';
for i:=1 to length(s1) do
if (s1[i]>='1')and(s1[i]<='9')then s2:=s2+21[i];
for i = 1 to 4
k:=i;
for j:=i to length(s)+i-4 do
if s2[k]<s2[j] then k:=j;
if k>i then delete(s,i,k-i);
end;
writeln(copy(s,1,4));
readln;
end.