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.
uses crt;
var st:string;
a:array[1..255]of string;
i,n,d,kt,j,dem,dem1,dem2:integer;
begin
clrscr;
readln(st);
d:=length(st);
dem:=1;
a[1]:=st[1];
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if a[j]=st[i] then kt:=1;
if kt=0 then
begin
dem:=dem+1;
a[dem]:=st[i];
end;
end;
dem1:=0;
dem2:=0;
for i:=1 to dem do
begin
if st[i] in ['A'..'Z'] then dem1:=dem1+1;
if st[i] in ['a'..'z'] then inc(dem1);
if st[i] in ['0'..'9'] then inc(dem2);
end;
writeln(dem1);
writeln(dem2);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
string st;
int dem,i,d;
int main()
{
getline(cin,st);
d=st.length();
dem=0;
for (i=0; i<=d-1; i++)
if ((st[i]=='a') or (st[i]=='A')) dem++;
cout<<dem;
return 0;
}
chuoi = input("Nhập vào một chuỗi ký tự: ")
kieu_du_lieu_cu = type(chuoi)
kieu_du_lieu_moi = str
# tạo một danh sách chứa tất cả các ký tự xuất hiện trong chuỗi
ky_tu_can_loai_bo = ['a', 'e', 'i', 'o', 'u']
# loại bỏ các ký tự nằm trong danh sách khỏi chuỗi
chuoi = ''.join([c for c in chuoi if c.lower() not in ky_tu_can_loai_bo])
print("Chuỗi sau khi xóa các ký tự: ", chuoi)
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]='H' then inc(dem);
writeln(dem);
readln;
end.
Câu 1:
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
write('Xau sau khi xoa so la: ');
for i:=1 to d do
if not(st[i] in ['0'..'9']) then write(st[i]);
writeln;
dem:=0;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln('Xau co ',dem,' dau cach');
writeln('Do dai cua xau la: ',d);
readln;
end.
Câu 2:
uses crt;
const fi='kq.out';
var st1,st2:string;
f1:text;
begin
clrscr;
write('Nhap xau thu 1:'); readln(st1);
write('Nhap xau thu 2:'); readln(st2);
assign(f1,fi); rewrite(f1);
if length(st2)>length(st1) then writeln(f1,st2)
else writeln(f1,st1);
close(f1);
end.
program ki_tu;
uses crt;
var s: string;
d,i,n: integer;
begin
clrscr;
write('nhap xau s: ');readln(s);
n:= length(s);
s:=upcase(s);
write('xau s sau khi duoc in hoa la: ');
writeln(s);
d:=0;
for i:= 1 to n do
if s[i] = 'A' then d:= d+1 ;
writeln('chu cai A xuat hien ',d,' lan');
readln
end.
Uses crt;
Var st:string;
D,i,dem:integer;
Begin
Clrscr;
Write('nhap xau:'); readln(st);
D:=length(st);
Dem:=0;
For i:=1 to d do
If st[i]='A' then inc(dem);
Writeln(dem);
Readln;
End.
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i;
int main()
{
getline(cin,st);
d=st.length();
for (i=0; i<=d-1; i++) swap(st[i],st[n-1-(i-1)]);
cout<<st;
return 0;
}