Q
1
K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
ML
24 tháng 3 2019
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.
13 tháng 10 2019
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.
ML
29 tháng 4 2020
Cho xâu S1='abcdef'
S2='mne'
a) Delete (S1,2,3)
---> Kết quả: S1='aef'
b) Delete (S2,1,2)
---> Kết quả: S2='e'
c) Insert (S1,S2,1)
---> Kết quả S1='abcdef' ; S2='abcdefmne';
d) Insert (S2,S1,2)
---> Kết quả : S1='amnebcdef' ; S2='mne'
e) Copy (S1,2,4)
---> Kết quả: 'bcde'
f) So sánh hai xâu sau theo mã ASCII
S3='la co' , S4=' la do'
(hình như bạn viết thừa dấu cách ở kí tự đầu tiên của s4 đúng không, Nếu đúng thì kết quả là S3<S4 còn không phải thì KQ là S3 > S4)
g) 'toan hoc' > ' tin hoc'
l) Sửa đề : pos ('xinh', ' cai_xac_xinh_xinh')
---> Kết quả : 9
h) upcase (' t ') ---> Kết quả: T
y) length ('mnefg')=?
---> Kết quả: 5
C