NC
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
HN
0
MN
11 tháng 4 2021
Câu 14. -NB Hãy chọn phương án ĐÚNG khi thực hiện thủ tục chuẩn Insert(S1,S2,vt) ?
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
Câu 15- NB Cho xâu S= 'Thu do Ha Noi', khi thực hiện thủ tục Delete(S,1,6) kết quả là gì?
A. 'THa Noi'
B. ' Ha Noi'
C. 'Thu do'
D. 'Ha Noi'
MN
11 tháng 4 2021
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
20 tháng 3 2021
uses crt;
var st:string;
a:array[1..255]of string;
i,d,dem,kt,j,dem1:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
a[1]:=st[1];
dem:=1;
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if st[i]=a[j] then kt:=1;
if kt=0 then
begin
inc(dem);
a[dem]:=st[i];
end;
end;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to d do
if a[i]=st[j] then inc(dem1);
writeln(a[i],' xuat hien ',dem1,' lan');
end;
readln;
end.
27 tháng 2 2023
uses crt;
var a:string;
c:char;
i,dem:integer;
begin
clrscr;
readln(a);
readln(c);
dem:=0;
for i:=1 to length(a) do
if a[i]=c then dem:=dem+1;
writeln(dem);
readln;
end.
4 tháng 4 2021
uses crt;
const s1='Pin_NLMT';
s2='Pin_luthium';
s3='Pin_JA_Solar';
s4='Pin_Jinko_Solar';
begin
clrscr;
if s1<s4 then writeln('Xau s1 nho hon xau s4')
else if s1=s4 then writeln('Xau s1 bang xau s4)
else writeln('Xau s1 lon hon xau s4');
if s2<s3 then writeln('Xau s2 nho hon xau s3')
else if s2=s3 then writeln('Xau s2 bang xau s3')
else writeln('Xau s2 lon hon xau s3');
readln;
end.
function demsolan(s1,s2:string):integer;
var dem,vt,d2:integer;
begin
dem:=0;
d2:=length(s2);
vt:=pos(s1,s2);
while vt>0 do
begin
inc(dem);
delete(s2,vt,d2);
end;
demsolan:=dem;
end;