Những câu hỏi liên quan
Nguyễn Thị Yến Nhi
Xem chi tiết
Nguyễn Lê Thái Uyên
13 tháng 3 2022 lúc 22:56

mình chưa học đến đó 😀🙃🙃

Nguyễn Lê Phước Thịnh
14 tháng 3 2022 lúc 10:00

Bạn ghi lại đề đi bạn

Nguyễn Thảo Vy
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.

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.

Hakai
Xem chi tiết
Minh Lệ
26 tháng 2 2021 lúc 17:39

Bài 3:

Program HOC24;

var s: string;

i: byte;

begin

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

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

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

readln

end.

Bài 4:

Program HOC24;

var s: string;

i: byte;

begin

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

write('Xau sau khi dao nguoc: ');

for i:=length(s) downto 1 do write(s[i]);

readln

end.

Minh Lệ
26 tháng 2 2021 lúc 17:39

Bài 1:

Program HOC24;

var s: string;

i: byte;

begin

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

while s[1]=#32 do delete(s,1,1);

while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);

while s[length(s)]=#32 do delete(s,length(s),1);

for i:=1 to length(s) do

if s[i]=#32 then writeln(s[i]) else write(s[i]);

writeln;

readln

end.

Bài 2:

Program HOC24;

var s: string;

i: byte;

begin

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

while s[1]=#32 do delete(s,1,1);

while pos(#32,s)<>0 do delete(s,pos(#32,s),1);

while s[length(s)]=#32 do delete(s,length(s),1);

writeln('Xau sau khi xoa ki tu trong: ',s);

readln

end.

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

Bài 4: 

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

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

d:=length(st);

for i:=d downto 1 do 

  write(st[i]);

readln;

end.

Be Long
Xem chi tiết
Lê Đình Quý
Xem chi tiết
Minh Lệ
16 tháng 3 2023 lúc 22:07

Program HOC24;

var s1,s2: string;

i: byte;

begin

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

s1:=''

for i:= length(s) downto 1 do

if s[i] in ['A'..'Z'] then s1:=s1+s[i];

write('Xau S1 : ',s1);

readln

end.

Nguyễn Chi
Xem chi tiết
NgocTuan
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 1 2022 lúc 20:08

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

}

Duy Nguyễn
Xem chi tiết