Những câu hỏi liên quan
Thangg PH
Xem chi tiết
Minh Lệ
3 tháng 4 2021 lúc 18:54

Program HOC24;

var S: string;

d,i: byte;

begin

write('S= '); readln(s);

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

writeln;

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

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

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

d:=0;

for i:=1 to length(s) do d:=d+1;

write('So tu :',d);

readln

end.

Bình luận (1)
Nguyễn Lê Phước Thịnh
3 tháng 4 2021 lúc 19:16

uses crt;

var s:string[200];

i,d,dem:integer;

begin

clrscr;

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

d:=length(s);

write('Xau viet theo chieu nguoc la: ');

for i:=d downto 1 do 

  write(st[i]);

writeln;

dem:=0;

for i:=1 to d do 

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

writeln('So tu la: ',dem);

readln;

end.

Bình luận (1)
Khánh Mỹ
Xem chi tiết
Dương Ngọc Nguyễn
3 tháng 3 2021 lúc 14:27

Use crt;

Var S : String;

P: longint;

Begin

Write('Nhap s: '); readln (S);

For P:=length(S) downto 1 do

Write(P);

Readln;

End.

Bình luận (0)
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 19:44

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

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

d:=length(st);

writeln('Xau ban vua nhap la: ',st);

writeln('Xau nguoc la: ');

for i:=d downto 1 do

write(st[i]:4);

readln;

end.

Bình luận (0)
An Phương
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 2 2022 lúc 18:58

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=d downto 1 do 

  write(st[i]);

readln;

end.

Bình luận (0)
bạn nhỏ
12 tháng 2 2022 lúc 18:59

Tham khảo 

undefined

Bình luận (1)

#include <bits/stdc++.h>
using namespace std;
string s;
int main() {
ios_base::sync_with_stdio(false);
cin.tie(NULL);cout.tie(NULL);
cin>>s; reverse(s.begin(),s.end());
cout<<s;
return 0;
}

 

Bình luận (0)
Lê Thị Vân Giang
Xem chi tiết
Mai Hà Băng
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 4 2022 lúc 22:39

uses crt;

const fo='output.txt'

var f1:text;

st:string;

d,i:integer;

begin

clrscr;

readln(st);

assign(f1,fi); rewrite(f1);

d:=length(st);

for i:=d downto 1 do 

  write(f1,st[i]);

close(f1);

readln;

end.

Bình luận (0)
Magic_Kaitosan Magic
Xem chi tiết
Nguyễn Mai
Xem chi tiết
Ngô Bá Hùng
16 tháng 4 2023 lúc 10:12

program stringManipulation;

var
  st1, st2: string;
  countN, i: integer;

begin
  write('Nhap vao xau ki tu st1: ');
  readln(st1);
  countN := 0;
  for i := 1 to length(st1) do
  begin
    if (st1[i] = 'N') or (st1[i] = 'n') then
    begin
      countN := countN + 1;
    end;
  end;
  writeln('So ky tu N va n trong xau st1 la: ', countN);
  st2 := ''
  for i := 1 to length(st1) do
  begin
    if (st1[i] >= 'A') and (st1[i] <= 'Z') then
    begin
      st2 := st2 + st1[i];
    end;
  end;
  writeln('Cac ky tu in hoa trong xau st1 la: ', st2);
  write('Xau st1 viet theo chieu nguoc lai la: ');
  for i := length(st1) downto 1 do
  begin
    write(st1[i]);
  end;
  readln;
end.

Bình luận (2)
Ngô Bá Hùng
16 tháng 4 2023 lúc 10:01

st1 = input("Nhập vào xâu kí tự: ")
count_n = 0
st2 = ""
for char in st1:
    if char == 'N' or char == 'n':
        count_n += 1
    if char.isupper():
        st2 += char

print("Số lần xuất hiện của kí tự 'N' và 'n' là:", count_n)
print("Xâu kí tự chỉ chứa kí tự in hoa là:", st2)
print("Xâu kí tự đảo ngược là:", st1[::-1])

Bình luận (3)
Be Long
Xem chi tiết
Nguyễn Thị Mỹ Tiền
Xem chi tiết
Nguyễn Thảo Vy
Xem chi tiết