Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Chi
Xem chi tiết
🍀Cố lên!!🍀
Xem chi tiết
lamgi hoi
Xem chi tiết
Anh Phạm
25 tháng 7 2021 lúc 14:23

cau 1:

uses crt;

var a:array[1..100] of integer;

n,i,min: integer;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

min:=a[1];

for i:=2 to n do

if min>a[i] then min=a[i];

writeln(a[i]);

readln;

end.

cau 2:

uses crt;

g:text;

s:string;

const fo='CHUSO.TXT'

begin

assign(g,fo);

rewrite(g);

readln(s);

for i:=1 to length(s) do

if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);

writeln(g,s);

end.

nobody
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 10 2021 lúc 0:52

#include <iostream>
#include <string>
using namespace std;
int main()
{
    string st;
    int dai,i,kt;
    cout<<"Nhap chuoi:"; getline(cin,st);
    dai=st.length();
    kt=0;
    for (int i=0;i<dai;i++)
        if (st[i]!=st[dai-i-1]) kt=1;
    if (kt==0) cout<<"YES";
    else cout<<"NO";
    return 0;
}

 

Lala
Xem chi tiết
Nguyễn Đăng Nhân
19 tháng 10 2023 lúc 7:21

#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;
}

Hirabbitx
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 1 2022 lúc 10:04

(8): <giá trị của a>+<giá trị của b>=<a+b>

(9): <giá trị của a>-<giá trị của b>=<a-b>

Tiên Tiên
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 22:22

Bài 1:

uses crt;

var S:String;

vt:integer;

begin

clrscr;

Write(‘Nhap 1 xau:’); Readln(S);

While pos(‘nang’,s)>0 do

Begin

Vt:= pos(‘nang’,s);

Delete(s,vt,4);

Insert(‘mua’,s ,vt);

End;

Writeln(‘Xau sau khi thay the ’,s);

Readln;

End.

Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 22:26

Bài 2: 

uses crt;

var st:string;

d,i,kt:integer;

begin

clrscr;

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

d:=length(st);

kt:=0;

for i:=1 to d do 

  if st[i]<>st[d-i+1] then kt:=1;

if kt=0 then writeln(st,' la xau doi xung')

else writeln(st,' khong la xau doi xung');

readln;

end.

Lala
Xem chi tiết
datcoder
18 tháng 10 2023 lúc 23:36

a) Ban đầu đề A là số còn B là xâu sao trong yêu cầu lại đổi vị trí cho nhau vậy nhỉ?

b) Xâu thay thế cái gì bạn, hình như đề còn thiếu bạn kiểm tra lại nhé.

Làm Thanh
Xem chi tiết
Đặng Thị Anh Thư
Xem chi tiết