Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Chi
Xem chi tiết
feng
Xem chi tiết
nguyễn an phát
24 tháng 5 2022 lúc 10:59

program bai1;
uses crt;
var i:integer;
s,s1:string;
begin
  clrscr;
  write('nhap S:');readln(s);
  while pos('C',s)<>0 do
  begin
    insert('LOP11A',s,pos('C',s));
    delete(s,pos('C',s),1);
  end;
  writeln('xau sau khi bien doi la: ',s);
  writeln('do dai cua xau tren la: ',length(s));
  write('nhap s1:');readln(s1);
  if s1[1]=s[1] then writeln('ki tu dau cua hai xau trung nhau')
  else writeln('ki tu dau cua hai xau khong trung nhau');
  readln;
end.

Nguyenthi Tien
Xem chi tiết
Cherry
21 tháng 3 2021 lúc 16:03

 câu 1 Uses Crt;

Var St:String;

dem: Array[‘A’..’Z’] Of Byte

; i:Byte;

ch:Char;

Begin Write(‘Nhap xau St: ‘);

Readln(St);

{Khởi tạo mảng} For ch:=’A’ To ‘Z’ Do dem[ch]:=0;

{Duyệt xâu} For i:=1 To Length(St) Do If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);

{Liệt kê các ký tự ra màn hình} For ch:=’A’ To ‘Z’ Do If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);

Readln;

thiên hiền lê
21 tháng 3 2021 lúc 16:30

Hehe,con sâu

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

uses crt;

var st:string;

i,d,kt:integer;

ktu:char;

begin

clrscr;

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

write('Nhap ki tu:'); readln(ktu);

d:=length(st);

kt:=0;

for i:=1 to d do 

  if ktu=st[i] then kt:=1;

if kt=0 then writeln(ktu,' khong co trong xau')

else writeln(ktu,' co trong xau');

readln;

end.

Nguyễn Thị Huyền Nhi
Xem chi tiết
Hưng Phạm Công Hưng
Xem chi tiết
Phía sau một cô gái
7 tháng 4 2023 lúc 20:32

chuoi_A = input("Nhập chuỗi A: ")

if chuoi_A.find("123") != -1:

     print("Chuỗi A chứa chuỗi con '123'")

else:

     print("Chuỗi A không chứa chuỗi con '123'")

Nguyễn Hoàng Duy
7 tháng 4 2023 lúc 22:56

A = input("Nhập vào chuỗi A: ")

if "123" in A:
    print("Chuỗi A chứa chuỗi con '123'.")
else:
    print("Chuỗi A không chứa chuỗi con '123'.")

Khánh Mỹ
Xem chi tiết
Buddy
3 tháng 3 2021 lúc 14:54

program bai_10_chuong_4;

uses crt;

var

s: string[100];

i, dem: integer;

Begin

clrscr;

write('Nhap xau vao:'); readln(s); dem:= 0;

for i:= 1 to length(s) do

if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;

Writeln('Trong xau s co '»dem,' chu so thap phan');

readln;

End.

 

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

uses crt;

var st:string[100];

i,d,kt:integer;

begin

clrscr;

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

kt:=0;

for i:=1 to length(st) do

if st[i]<>st[length(st)-i+1] then kt:=1;

if kt=0 then write('Xau doi xung')

else writeln('Xau khong doi xung');

readln;

end.

phuoc
20 tháng 8 2021 lúc 14:59

code đây bạn c++ nha:

#include<bits/stdc++.h>
using namespace std;
char doixung(char s1[100])
{
long long i;
for(i=0;i<strlen(s1)/2;i++)
{
    if(s1[i] != s1[strlen(s1)-1-i])
         return 0;
}
return 1;
}
int main()
{
char s1[100];
cin>>s1;
if(doixung(s1)==0)
{
   cout<<"k la cxau doi xung";
}
if(doixung(s1)==1)
{
   cout<<"la xau doi xung";
}
return 0 ;
}

Hoàng Văn
Xem chi tiết
Minh Lệ
20 tháng 4 2021 lúc 15:21

Program HOC24;

var s: string;

i,d: byte;

begin

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

d:=0;

for i:=1 to length(s) do if s[i]=' ' then d:=d+1;

write('Xau ',s,' co ',d,' ki tu cach');

readln

end.

Nguyễn Lê Phước Thịnh
20 tháng 4 2021 lúc 20:51

uses crt;

var s:string;

i,d,dem:integer;

begin

clrscr;

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

d:=length(s);

dem:=0;

for i:=1 to d do 

  if s[i]=#32 then inc(dem);

writeln(dem);

readln;

end.

🍀Cố lên!!🍀
Xem chi tiết
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;
}