Những câu hỏi liên quan
Tiếng anh123456
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 8 2023 lúc 16:12

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do

if (st[i] in ['a'..'z']) then write(st[i]);

writeln;

for i:=1 to d do

if (st[i] in ['0'..'9']) then write(st[i]);

readln;

end.

Bình luận (0)
Tiếng anh123456
Xem chi tiết
Phía sau một cô gái
8 tháng 8 2023 lúc 21:02

def tach_chuoi(chuoi):

     ky_tu_so = " "

     ky_tu_chu = " "

     for ky_tu in chuoi:

          if ky_tu.isdigit():

               ky_tu_so += ky_tu

          elif ky_tu.isalpha():

               ky_tu_chu += ky_tu

     return ky_tu_so, ky_tu_chu

chuoi = input("Nhập vào một chuỗi: ")

ky_tu_so, ky_tu_chu = tach_chuoi(chuoi)

print("Các ký tự số trong chuỗi:", ky_tu_so)

print("Các ký tự chữ cái trong chuỗi:", ky_tu_chu)

Bình luận (0)
Trần Văn Việt Hùng
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 2 2022 lúc 22:22

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.

Bình luận (0)
Trần Văn Việt Hùng
Xem chi tiết
Lala
Xem chi tiết
Lala
Xem chi tiết
Nguyenthi Tien
Xem chi tiết
Cherry
21 tháng 3 2021 lúc 16:03

 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;

Bình luận (1)
thiên hiền lê
21 tháng 3 2021 lúc 16:30

Hehe,con sâu

Bình luận (0)
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 20:49

uses crt;

var st:string;

i,d,kt:integer;

ktu:char;

begin

clrscr;

write('Nhap xau:'); readln(st);

write('Nhap ki tu:'); readln(ktu);

d:=length(st);

kt:=0;

for i:=1 to d do 

  if ktu=st[i] then kt:=1;

if kt=0 then writeln(ktu,' khong co trong xau')

else writeln(ktu,' co trong xau');

readln;

end.

Bình luận (0)
Họ Và Tên
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 1 2021 lúc 21:16

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. 

Bình luận (1)
bang
Xem chi tiết