Những câu hỏi liên quan
Nguyễn Thị Hòa
Xem chi tiết
Anh Phạm
25 tháng 7 2021 lúc 20:51

uses crt;

var s:string;

i,tong,x,code:integer;

f,g:text;

k:boolean;

const fi='XAU.INP'

          fo='XAU.OUT'

begin

k:=false;

assign(f,fi); reset(f);

assign(g,fo); rewrite(g);

readln(f,s);

tong:=0;

for i:=1 to length(s) do

begin

if s[i] in ['0'..'9'] then

begin

k:=true;

val(s[i],x,code);

tong:=tong+x;

x:=0;

cod:=0;

end;

end;

if k=false then writeln(g,'Sai yeu cau')

else

begin

writeln(g,s);

writeln(g,tong);

end;

close(f);

close(g);

end.

APOK FF
Xem chi tiết
Thangg PH
Xem chi tiết
Minh Nhân
6 tháng 4 2021 lúc 15:09

Phát biểu nào dưới đây là sai?

A.    Xâu là một dãy các kí tự trong bảng mã ASCII. Kiểu xâu là một kiểu dữ liệu có cấu trúc.

B.     Có thể xem mỗi xâu có cấu trúc giống như một mảng một chiều mà mỗi phần tử của  mảng là một kí tự trong bảng mã ASCII, được đánh chỉ số từ 1.

C.    Số lượng kí tự trong một xâu chính là độ dài của xâu.

D.    Các phép toán thao tác với xâu tương tự như các phép toán thao tác với mảng.  

❤ ~~ Yến ~~ ❤
6 tháng 4 2021 lúc 15:08

Đáp án: A

Cherry
6 tháng 4 2021 lúc 15:13

D

Long ca ca
Xem chi tiết
Long ca ca
20 tháng 8 2023 lúc 19:18

Làm bằng pascal nha

 

Lan Anh
Xem chi tiết
Long ca ca
Xem chi tiết
Phía sau một cô gái
21 tháng 8 2023 lúc 20:49

program XoaSoLienTuc;

uses sysutils;

function XoaSoLienTuc(S: string): string;

var

     i: integer;

     result: string;

begin

     result := ''

     for i := 1 to Length(S) do

     begin

          if not (S[i] in ['0'..'9']) then

          begin

               if (i = 1) or (S[i-1] in ['0'..'9']) then

                    result := result + ' '

               result := result + S[i];

          end;

     end;

     result := Trim(result);

     result := StringReplace(result, ' ', '', [rfReplaceAll]);

     XoaSoLienTuc := result;

end;

var

     S: string;

begin

     write('Nhập vào xâu S: ');

     readln(S);

     writeln('Kết quả: ', XoaSoLienTuc(S));

end.

Lê Chiêu Nguyên	Vũ
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.

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])

Mình Tên Ken :3
Xem chi tiết
Đỗ Tuệ Lâm
21 tháng 2 2022 lúc 11:59

zời zăm ba cái program:>

Đỗ Tuệ Lâm
21 tháng 2 2022 lúc 12:05

PROGRAM XAU;

USES crt;

VAR N1 ; N2 : String;

          a ; i :Bytbe;

BEGIN

     clrscr;

     write(' Nhap xau N1:') ; Readln(N1);

     N2:='  '

     for i:=1 to Length(N1) do

        If ( 'a'<=N1

moa cai dau doi ty qua kia lam 

Đỗ Tuệ Lâm
21 tháng 2 2022 lúc 12:09

{PROGRAM XAU;

USES crt;

VAR N1 ; N2 : String;

          a ; i :Bytbe;

BEGIN

     clrscr;

     write(' Nhap xau N1:') ; Readln(N1);

     N2:='  '

     for i:=1 to Length(N1) do

        If ( 'a'<=N1[i]) and (N2[i]<='z')then
        N2:=N2+N1[i];
       Write ('Xau moi',N2);
      Readln;
end.      

}