Những câu hỏi liên quan
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)
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)
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)
Be Long
Xem chi tiết
Đinh Đức Quảng
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 22:32

uses crt;

var st:string;

begin

clrscr;

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

writeln(length(st));

readln;

end.

Bình luận (0)
Nguyễn Mai
Xem chi tiết
Minh Lệ
16 tháng 4 2023 lúc 12:28

Program HOC24;

var i,d1,d2: byte;

st1,st2: string[60];

begin

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

//---------------Câu 1-------------------

d1:=0; d2:=0;

for i:=1 to length(st1) do

begin

if st1[i]='A' then d1:=d1+1;

if st1[i]='a' then d2:=d2+1;

end;

writeln('Co ',d1,' ki tu A trong xau');

writeln('Co ',d2,' ki tu a trong xau');

//---------------------- Câu 2 --------------------

st2:=''

for i:=1 to length(st1) do if st1[i] in ['a'..'z'] then st2:=st2+st1[i];

writeln('Xau st2 la: ',st2);

//------------------------------Câu 3--------------------

for i:=1 to length(st1) do st1[i]:=upcase(st1[i]);

write('Xau st1 sau khi in hoa la: ',st1);

//--------------------------------------------------------

readln

end.

Bình luận (1)
Nguyễn Thảo Vy
Xem chi tiết
Nguyễn thị tuyết nhung
Xem chi tiết
đăng hiếu
31 tháng 12 2021 lúc 10:55

chj check ib em ạ

Bình luận (0)
Nguyễn Lê Phước Thịnh
31 tháng 12 2021 lúc 11:29

#include <bits/stdc++.h>

using namespace std;

string s;

int d,i,dem;

int main()

{

cin>>s;

d=s.length();

dem=0;

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

if (s[i]=='a') dem++;

cout<<dem;

return 0;

}

Bình luận (0)