Những câu hỏi liên quan
Thọ Phạm
Xem chi tiết
Đặng Duy Hoàng
8 tháng 1 2023 lúc 21:35

Bình luận (0)
Huy Lê Đình
Xem chi tiết
Huy Lê Đình
21 tháng 3 2022 lúc 16:56

Cho em lời giải với ạ em đang thi ạ

 

Bình luận (0)
Đặng Duy Hoàng
8 tháng 1 2023 lúc 21:36

Bình luận (0)
Ngọc Đối Gaming
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 12 2021 lúc 22:53

#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 (('a'<=st[i]) and (st[i]<='z')) st[i]=st[i]+32;

for (i=0; i<=d-1; i++)

cout<<st[i];

return 0;

}

Bình luận (0)
Nguyen Ngoc Thien
Xem chi tiết
Bùi Anh Tuấn
16 tháng 3 2021 lúc 20:00

Bình luận (0)
Minh Hậu Ngô
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 22:31

2:

#include <bits/stdc++.h>

using namespace std;

string st1,st2;

int d1,d2;

int main()

{

getline(cin,st1);

getline(cin,st2);

d1=st1.length();

d2=st2.length();

if (d1>d2) cout<<st1;

else cout<<st2;

return 0;

}

Bình luận (0)
Trung Nguyễn
Xem chi tiết
Lê Đình Quý
16 tháng 3 2023 lúc 21:26

Program Xau;

Uses crt;

Var St: String;

    i: longint;

Begin

        Clrscr;

        Write('Nhap xau: '); Readln(St);

        For i:=1 to length(St) do

                St[i] := Upcase(St[i]);

        Write('St = ',St);

        Readln

End.

Bình luận (0)
nhựt Long
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 4 2022 lúc 16:58

uses crt;

var st1,st2:string;

begin

clrscr;

readln(st1,st2);

if st1>st2 then writeln('Xau st1 lon hon')

else if st2>st1 then writeln('Xau st2 lon hon')

else writeln('Hai xau bang nhau');

readln;

end.

Bình luận (0)
Nguyễn Chi
Xem chi tiết
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.

Bình luận (0)
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.

Bình luận (0)