K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

9 tháng 3 2023

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

9 tháng 3 2023

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

16 tháng 3 2023

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.

3 tháng 3 2021

Chương trình:

program bai_10_chuong_4;

uses crt;

var

s: string[100];

i, dem: integer;

Begin

clrscr;

write('Nhap xau vao:'); readln(s); dem:= 0;

for i:= 1 to length(s) do

if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;

Writeln('Trong xau s co '»dem,' chu so thap phan');

readln;

End.

 

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

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

d:=length(st);

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

dem:=0;

for i:=1 to d do 

  if st[i] in ['0'..'9'] then inc(dem);

writeln(dem);

readln;

end.

3 tháng 3 2021

Chương trình:program bai_10_chuong_4;uses crt;vars: string[100];i, dem: integer;Beginclrscr;write('Nhap xau vao:'); readln(s); dem:= 0;for i:= 1 to length(s) doif ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;Writeln('Trong xau s co '»dem,' chu so thap phan');readln;End.

3 tháng 3 2021

Đề của em là

input:Hie6n3 thi5 chu 73 so61

output :Cac chu so:6357316

             Xau da nhap:Hie6n3 thi5 chu 73 so61

Như vậy mới đúng ạ 

em nhập như trên chỉ ra được số 7 thôi ạ

 

uses crt;

var st:string;

a:array[1..255]of string;

i,d,dem,kt,j,dem1:integer;

begin

clrscr;

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

d:=length(st);

a[1]:=st[1];

dem:=1;

for i:=1 to d do 

  begin

kt:=0;

for j:=1 to dem do 

  if st[i]=a[j] then kt:=1;

if kt=0 then 

begin

inc(dem);

a[dem]:=st[i];

end;

end;

for i:=1 to dem do 

  begin

dem1:=0;

for j:=1 to d do 

  if a[i]=st[j] then inc(dem1);

writeln(a[i],' xuat hien ',dem1,' lan');

end;

readln;

end.

27 tháng 2 2023

uses crt;

var a:string;

     c:char;

     i,dem:integer;

begin

    clrscr;

    readln(a);

    readln(c);

    dem:=0;

    for i:=1 to length(a) do

    if a[i]=c then dem:=dem+1;

    writeln(dem);

    readln;

end.

 

uses crt;

var st:string;

begin

clrscr;

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

writeln(length(st));

readln;

end.

uses crt;

var st,s:string;

    i,d,dem,kt,j,dem1:integer;

begin

clrscr;

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

writeln('Xau vua nhap la: ',s);

d:=length(s);

for i:=1 to d do

  if s[i]=#32 then delete(s,i,1);

dem:=1;

st[1]:=s[1];

for i:=1 to d do

  begin

     kt:=0;

     for j:=1 to dem do

       if s[i]=st[j] then kt:=1;

     if kt=0 then

        begin

           inc(dem);

           st[dem]:=s[i];

        end;

  end;

for i:=1 to dem do

  begin

     dem1:=0;

     for j:=1 to d do

       if st[i]=s[j] then inc(dem1);

     writeln(st[i],' xuat hien ',dem1,' lan');

  end;

readln;

end.

13 tháng 2 2022

uses crt;

var a,b,c:string;

i,d1,d2:integer;

begin

clrscr;

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

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

d1:=length(a);

d2:=length(b);

writeln('Tong do dai hai xau la: ',d1+d2);

c:=#32;

for i:=1 to d1 do 

  if (a[i] in ['A'..'Z']) or (a[i] in ['a'..'z']) then c:=c+a[i];

for i:=1 to d2 do 

  if b[i] in ['0'..'9'] then c:=c+b[i];

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

readln;

end.

13 tháng 2 2022

Làm vậy sẽ thừa 1 kí tự trắng ở đầu tiên trong xâu C bạn nhé. Bạn nên gán c:=''; là OK nhất. Nhưng bài làm bài cũng rất tốt^^, mình chỉ góp ý lỗi sai nhỏ, chúc bạn học tốt ^^.

uses crt;

var a,b,c:string;

i,d1,d2:integer;

begin

clrscr;

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

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

d1:=length(a);

d2:=length(b);

writeln('Tong do dai hai xau la: ',d1+d2);

c:=#32;

for i:=1 to d1 do 

  if (a[i] in ['A'..'Z']) or (a[i] in ['a'..'z']) then c:=c+a[i];

for i:=1 to d2 do 

  if b[i] in ['0'..'9'] then c:=c+b[i];

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

readln;

end.