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.
cau 1:
uses crt;
var a:array[1..100] of integer;
n,i,min: integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
min:=a[1];
for i:=2 to n do
if min>a[i] then min=a[i];
writeln(a[i]);
readln;
end.
cau 2:
uses crt;
g:text;
s:string;
const fo='CHUSO.TXT';
begin
assign(g,fo);
rewrite(g);
readln(s);
for i:=1 to length(s) do
if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);
writeln(g,s);
end.
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau :'); readln(s);
for i:=1 to length(s) do if s[i]<>'a' then write(s[i]);
readln
end.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]='a' then delete(st,i,1);
writeln(st);
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.
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.
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 s:string;
i,d:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
for i:=1 to d do
s[i]:=upcase(s[i]);
writeln(s);
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.
# 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)
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i,dem;
int main()
{
getline(cin,st);
d=st.length();
dem=0;
for (i=0; i<=d-1; i++)
if ((97<=st[i] && st[i]<=122) and (st[i]!=".")) dem++;
cout<<dem;
return 0;
}