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.
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.
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.
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.
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.
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.
viết chương trình nhập vào từ bàn phím xâu ký tự S . tính và đưa ra màn hình số lượng kí tự trog xâu
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.
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.
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.
# 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)
# 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)