Nhập vào 1 xâu bất kì , in ra màn hình 2 sâu Xâu 1 các chữ số Xâu 2 các chữ cái
Những câu hỏi liên quan
Nhập vào 1 xâu bất kì , đưa ra màn hình xâu gồm tất cả các kí tự không phải chữ số
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 not(st[i] in ['0'..'9']) then write(st[i]);
readln;
end.
Đúng 1
Bình luận (0)
Viết phương trình:
a, Nhập vào từ bàn phím 2 xâu a, b chứa các chữ thường và thông báo ra màn hình tổng độ dài của 2 xâu
b, Tạo xâu c gồm các chữ cái từ xâu a và các chữ số từ xâu b. Đưa xâu c lên màn hình.
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.
Đúng 2
Bình luận (0)
viết chương trình nhập từ bàn phím một xâu chuỗi bất kì. loại bỏ hết dấu cách có trong xâu. sau đó chuyển chữ hoa cho cả xâu và in ra màn hình xâu chỉ có chữ cái
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do if (s[i]<>#32) and (s[i] in 'A'..'z') then
begin
upcase(s[i]); write(s[i]);
end;
readln
end.
Đúng 0
Bình luận (1)
Bài tập 2:Viết chương trình nhập một xâu từ bàn phím. Đếm số kí tự là chữ số chữ cái trong xâu vừa nhập và in ra màn hình. Xóa các chữ số kh xâu vừa nhập
2:
uses crt;
var st:string;
d,i,dem1,dem2:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem1:=0;
dem2:=0;
for i:=1 to d do
begin
if st[i] in ['0'..'9'] then inc(dem1);
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem2);
end;
writeln('So ki tu la chu so la: ',dem1);
writeln('So ki tu la chu cai la: ',dem2);
for i:=1 to d do
if st[i] in ['0'..'9'] then delete(st,i,1);
writeln('Xau sau khi xoa cac chu so la: ',st);
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình xoá các kí tự là chữ số từ một xâu bất kì được nhập từ bàn phím. In xâu kết quả ra màn hình
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if not (st[i] in ['0'..'9']) then write(st[i]);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình: A. Nhập vào từ bàn phím 2 xâu a, b ( chứa các chữ thường ) và thông báo ra màn hình tổng độ dài của 2 xâu B. Tạo xâu c gồm các chữ cái từ xâu a và các chữ số từ xâu b. Đưa xâu c lên màn hình
Các anh chị giải giúp em với ạ
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.
Đúng 2
Bình luận (2)
Viết chương trình nhập vào 1 xâu kí tự từ bàn phím và đưa xâu đó ra màn hình là các chữ cái in hoa
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.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào bàn phím 2 xâu bất kì so sánh độ dài 2 xâu đưa ra màn hình xâu ngắn hơn sau đó chuyển xâu ngắn hơn sang dạng chữ hoa
#include <bits/stdc++.h>
using namespace std;
string st1,st2;
int d1,d2;
int main()
{
cin>>st1>>st2;
d1=st1.length();
d2=st2.length();
if (d1<d2) cout<<st1;
else cout<<st2;
return 0;
}
Đúng 0
Bình luận (0)
1. Viết chương trình nhập vào 1 xâu họ tên sau đó đưa ra màn hình xâu chứa tên 2. Viết chương trình nhập vào 1 xâu in ra màn hình xâu đó sau khi đã đổi tất cả chữ in thường thành in hoa
Câu 1:
ho_ten = input("Nhập họ tên: ")
tach_ho_ten = ho_ten.split()
if len(tach_ho_ten) > 1:
ten = tach_ho_ten[-1]
print("Tên của bạn là:", ten)
else:
print("Nhập sai định dạng họ tên")
Câu 2:
s = input("Nhập xâu: ")
hoa = s.upper()
print(hoa)
Đúng 0
Bình luận (0)