Bài 2. Làm quen với chương trình và ngôn ngữ lập trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Họ Và Tên

viết chương trình nhập vào chuỗi S a)Đếm xem trong chuỗi có bao nhiêu kí tự b)xuất ra chuỗi đảo c)xóa kí tự trắng dư thừa trong xâu d) đếm các chữ số trong xâu

mong các bạn giúp mình với.

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. 


Các câu hỏi tương tự
Lý Tâm Như
Xem chi tiết
Đăng Quang
Xem chi tiết
Hàn Thất Linh
Xem chi tiết
Xem chi tiết
nhung
Xem chi tiết
Anh Kim
Xem chi tiết
Mỹ Uyên
Xem chi tiết
Mai Phương
Xem chi tiết
Bí Ẩn Nhân Tố
Xem chi tiết