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.

12 tháng 3 2021

12 tháng 3 2021

Program hotrotinhoc;

var s: string;

t,c,i: byte;

begin

write('Nhap s:'); readln(s);

t:=0;

for i:=1 to length(s) do

if s[i] in ['1'..'9'] then

begin

val(s[i],c);

t:=t+c;

end;

write(t);

readln

end.

Thu gọn

uses crt;

var s1,s2:string;

i,j,d1,d2:integer;

begin

clrscr;

readln(s1,s2);

d1:=length(s1);

d2:=length(s2);

for i:=1 to d1 do 

  if not(s1[i] in ['0'..'9']) then delete(s1,i,1);

for i:=1 to d2 do 

  if not(s2[i] in ['0'..'9']) then delete(s2,i,1);

writeln(s1);

writeln(s2);

writeln(s1+s2);

readln;

end.

21 tháng 2 2022

zời zăm ba cái program:>

21 tháng 2 2022

PROGRAM XAU;

USES crt;

VAR N1 ; N2 : String;

          a ; i :Bytbe;

BEGIN

     clrscr;

     write(' Nhap xau N1:') ; Readln(N1);

     N2:='  ';

     for i:=1 to Length(N1) do

        If ( 'a'<=N1

moa cai dau doi ty qua kia lam 

24 tháng 8 2021

Program HOC24;

var s,st: string;

i,n,max: integer;

a: array[1..1000] of string;

begin

write('Nhap xau: '); readln(s);

s:=s+' '; n:=1;

while length(s)<>0 do

begin

n:=n+1;

a[n]:=copy(s,1,pos(' ',s));

delete(s,1,pos(' ',s));

end;

max:=length(a[1]);

for i:=2 to n do if max<length(a[i]) then

begin

max:=length(a[i]);

st:=a[i];

end;

write('Tu co do dai lon nhat trong xau la: ',st);

readln

end.

31 tháng 8 2021

var s,st: string;

i,n,max: integer;

a: array[1..1000] of string;

begin

write('Nhap xau: '); readln(s);

s:=s+' '; n:=1;

while length(s)<>0 do

begin

n:=n+1;

a[n]:=copy(s,1,pos(' ',s));

delete(s,1,pos(' ',s));

end;

max:=length(a[1]);

for i:=2 to n do if max<length(a[i]) then

begin

max:=length(a[i]);

st:=a[i];

end;

write('Tu co do dai lon nhat trong xau la: ',st);

readln

end.

#include <bits/stdc++.h>

using namespace std;

string a[1000],t,ln;

int n,i;

int main()

{

cin>>n;

for (i=1;i<=n; i++) cin>>a[i];

ln='';

for (i=1; i<=n; i++) if (ln<a[i]) ln=a[i];

t='';

for (i=1; i<=n; i++) t=t+a[i];

cout<<ln<<" "<<t;

return 0;

}

21 tháng 2 2022

có chương trình bằng pascal không ạ

19 tháng 10 2023

#include <bits/stdc++.h>

using namespace std;
string a,b;
void replaceSubstring(string& a, const string& b) {
    size_t pos=0;
    while((pos=a.find(b,pos))!=string::npos) {
        a.replace(pos,b.length(),"ABC");
        pos+=3;
    }
}
int main()
{
    cin>>a>>b;
    if(a.find(b)!=string::npos){
        cout<<"YES"<<endl;
        replaceSubstring(a,b);
        cout<<a;
    }else{
        cout<<"NO"<<endl;
        cout<<a;
    }
    
    return 0;
}

Bài 2. Viết chương trình nhập vào một xâu bất kỳ. In ra màn hình xâu đó sau khi đã xóa hếtký tự trắng dư thừa. Ký tự trắng dư thừa (hay còn gọi là dấu cách, ký tự trống) là kýtự trắng xuất hiện ở trước từ đầu tiên của xâu, sau từ cuối cùng của xâu và giữa cáctừ cách nhau nhiều hơn 1 ký tự trắng.Ví dụ: Giả sử * là ký tự trắng.Cho xâu: ’**xin***chao**’. =&gt; Xâu sau khi được xử lý ’xin*chao’Gợi ý:Kiểm...
Đọc tiếp

Bài 2. Viết chương trình nhập vào một xâu bất kỳ. In ra màn hình xâu đó sau khi đã xóa hết
ký tự trắng dư thừa. Ký tự trắng dư thừa (hay còn gọi là dấu cách, ký tự trống) là ký
tự trắng xuất hiện ở trước từ đầu tiên của xâu, sau từ cuối cùng của xâu và giữa các
từ cách nhau nhiều hơn 1 ký tự trắng.
Ví dụ: Giả sử * là ký tự trắng.
Cho xâu: ’**xin***chao**’. =&gt; Xâu sau khi được xử lý ’xin*chao’
Gợi ý:
Kiểm tra phần tử trong xâu có phải là ký tự trắng hay không? Nếu đúng thì xóa ký tự trắng đó
cho đến khi không còn ký tự trắng ở đầu xâu.
Kiểm tra từ đầu đến cuối xâu, nếu có 2 ký tự trắng liên tiếp =&gt; Xóa đi 1 ký tự trắng, thự hiện
công việc xóa cho đến khi giữa các từ trong xâu chỉ cách nhau 1 ký tự trắng.
Sau khi xử lý các ký tự trắng dư thừa ở đầu xâu, giữa xâu. Ta xử lý tiếp ký tự trắng dư thừa ở
cuối xâu bằng cách kiểm tra ký tự cuối cùng có phải là ký tự trắng hay không. Nếu đúng thì xóa
cho đến khi ký tự cuối cùng của xâu không phải là ký tự trắng.
B1: Khai báo.
B2: Nhập xâu bất kỳ.
B3: Xoá ký tự trắng dư thừa
B3.1: Xoá ký tự trắng dư thừa xuất hiện ở đầu tiên của xâu (nếu có).
Chừng nào ký tự đầu tiên trong xâu là ký tự trắng =&gt; xoá ký tự trắng đó cho đến khi đầu xâu
không phải là ký tự trắng.
B3.2: Xoá ký tự trắng dư thừa cuối cùng của xâu (nếu có).
Chừng nào trong xâu xuất hiện 2 ký tự trắng trong xâu =&gt; xoá đi 1 ký tự trắng dư thừa.
B3.3: Xoá ký tự trắng dư thừa giữa các từ (nếu có).
Chừng nào ký tự cuối cùng là ký tự trắng =&gt; Xoá đi ký tự đó.
B4: In ra kết quả

1

#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 ((st[i]==' ') and (st[i+1]=' ')) st.erase(i,1);

cout<<st;

return 0;

}