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.

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;

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'

11 tháng 4 2021

a

b

15 tháng 3 2021

Program HOC24;

var s,s1: string;

i: byte;

begin

write('Nhap xau S='); readln(s);

writeln('Xau S= ',s);

write('Xau S1= ');

for i:=length(s)-3 to length(s) do write(s[i]);

readln

end.

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

 

Cây 2: A

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.

 

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.

4 tháng 4 2021

Anh ơi! Nếu mình làm xong cái này thì kết quả nó sẽ ra là gì ạ? Em kh cài Pascal nên kh kiểm tra được ạ! Phiền anh