Viết chương trình nhập 1 xâu, in ra màn hình các chữ số trong xâu đó
Những câu hỏi liên quan
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)
Viết chương trình nhập vào một xâu sau đó đưa ra màn hình các chữ số ở trong xâu
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 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)
1. Viết chương trình nhập vào một số nguyên dương n. Hãy in ra số nguyên tố nhỏ nhất lớn hơn n. 2. Viết chương trình nhập vào một xâu. In ra màn hình số lớn nhất trong xâu đó.
câu 1
Program Nguyen_to;
Var n,i:integer;
Function NT(n:integer):Boolean;
Var ok: Boolean;
i: integer;
Begin ok:=true;
for i:=2 to n-1 do if (n mod i)= 0 then ok:=ok and false;
if n < 2 then NT:=false else NT:=ok;
End;
Begin Write('Nhap n: ');
Readln(n); i:=n;
Repeat i:=i+1;
Until NT(i);
Write('So nguyen to nho nhat lon hon ',n, 'la: ',i);
Readln End.
Đúng 1
Bình luận (1)
câu 2
uses crt;
const so: set of char=['0','1','2','3','4','5','6','7','8','9'];
var a:array[1..100] of integer;
st,b:string;
c,l,i,n,j:integer;
s, Max: integer;
begin clrscr;
write('Nhap xau:');
readln(st);
l:=length(st);
i:=1;
n:=0;
repeat if (st[i] in so) then begin b:=''
repeat b:=b+st[i];
inc(i);
until (not(st[i] in so)) or (i>l);
inc(n);
val(b,a[n],c);
end;
inc(i);
until i>l;
Max:=a[1];
for i:=2 to n do If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
readln;
end.
Đúng 0
Bình luận (0)
Hãy viết chương trình nhập vào xâu s chứa họ tên của một người. In ra màn hình số lượng kí tự a có trong xâu. Và in ra xâu đó khi đã chuyển tất cả kí tự trong xâu thành chữ HOA
Hãy viết chương trình nhập vào xâu s chứa họ tên của một người. In ra màn hình số lượng kí tự a có trong xâu. Và in ra xâu đó khi đã chuyển tất cả kí tự trong xâu thành chữ HOA
Viết chương trình nhập vào từ bàn phím một xâu kí tự. In ra màn hình xâu gồm tất cả các kí tự chữ số lấy từ xâu đã nhập
Var s,st:string;
i:integer;
Begin
Write('Nhap xau ');readln(s);
For i:=1 to length(s) do
If s[i] in ['0'..'9'] then st:=st+s[i];
Write('Cac ki tu so co trong day la ',st);
Readln
End.
Đúng 1
Bình luận (0)
1.Viết chương trình nhập một xâu ký tự gồm các ký tự từ “ a” đến “ z” và “A” đến “Z”. In ra màn in xâu đã nhập theo dạng chữ viết thường.
2.Viết chương trình đã nhập vào một số nguyên.Chuyển số đã nhập thành xâu số nguyên