Nhập vào một chuỗi ký tự và kiểm tra xem chuỗi có bao nhiêu nguyên âm, bao nhiêu số?
mình tìm hiểu trên mạng cái #32 nhưng ko hiểu là gì ai giải đáp giúp vs
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.
Những câu hỏi liên quan
4 tháng 8 2023
def dem_so_tu(chuoi):
dem = 0
tu = chuoi.split()
for word in tu:
if word.isalpha():
dem += 1
return dem
chuoi = input("Nhập một chuỗi: ")
so_tu = dem_so_tu(chuoi)
print("Số từ trong chuỗi là:", so_tu)
28 tháng 6 2023
program HOC24;
uses crt;
var s: string;
i, n, count: integer;
begin
clrscr;
write('Nhap chuoi S: ');
readln(s);
n := length(s);
count := 0;
for i := 1 to n do
if (s[i] in ['0'..'9']) then
if (StrToInt(s[i]) mod 5 = 0) then
begin
writeln('So chia het cho 5 la: ', s[i]);
inc(count);
end;
writeln('Tong so chia het cho 5 la: ', count);
end.
29 tháng 6 2023
Câu lệnh này kiểm tra xem số tại vị trí i trong chuỗi s có chia hết cho 5 hay không. Nếu chia hết thì thực hiện lệnh bên trong if. Nếu không chia hết thì bỏ qua lệnh bên trong if và tiếp tục vòng lặp
LB
6 tháng 1
#include <bits/stdc++.h>
using namespace std;
int main() {
string str;
getline(cin, str);
string ans = "";
for (char c : str) {
if (!isdigit(c)) {
ans += c;
}
}
cout <<ans;
}
Theo mk là như v
6 tháng 1
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.
HV
2
ML
20 tháng 4 2021
Program HOC24;
var s: string;
i,d: byte;
begin
write('Nhap xau :'); readln(s);
d:=0;
for i:=1 to length(s) do if s[i]=' ' then d:=d+1;
write('Xau ',s,' co ',d,' ki tu cach');
readln
end.
20 tháng 4 2021
uses crt;
var s:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:); readln(s);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i]=#32 then inc(dem);
writeln(dem);
readln;
end.
12 tháng 1 2021
uses crt;
var s:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap chuoi S:'); readln(s);
d:=length(s);
writeln('Trong chuoi ',s,' co ',d,' ki tu');
writeln('Chuoi dao cua chuoi ',s,' la: ');
for i:=d downto 1 do
write(s[i]:4);
writeln;
dem:=0;
for i:=1 to d do
if s[i] in ['0'..'9'] then inc(dem);
writeln('So chu so trong xau la: ',dem);
readln;
end.
C
21 tháng 3 2021
câu 1 Uses Crt;
Var St:String;
dem: Array[‘A’..’Z’] Of Byte
; i:Byte;
ch:Char;
Begin Write(‘Nhap xau St: ‘);
Readln(St);
{Khởi tạo mảng} For ch:=’A’ To ‘Z’ Do dem[ch]:=0;
{Duyệt xâu} For i:=1 To Length(St) Do If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);
{Liệt kê các ký tự ra màn hình} For ch:=’A’ To ‘Z’ Do If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);
Readln;
25 tháng 2 2022
Câu 2:
uses crt;
var a,b:array[1..100]of integer;
i,n,t,dem,j,kt,dem1:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t);
dem:=1;
b[1]:=a[1];
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if b[j]=a[i] then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to n do
if a[j]=b[i] then inc(dem1);
writeln(b[i],' xuat hien ',dem1,' lan');
end;
readln;
end.
#32 là dấu cách nhé bạn
cảm ơn nhiều