Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Mai Thanh Hằngg.

Giúp em với ạ

Nguyễn Lê Phước Thịnh
22 tháng 3 2021 lúc 19:42

Câu 1: 

uses crt;

var c,d:string;

i,dai:integer;

begin

clrscr;

write('Nhap xau C:'); readln(c);

dai:=length(c);

d:=#32; 

for i:=1 to dai do 

  if c[i] in ['0'..'9'] then d:=d+c[i];

writeln(d);

readln;

end.


Các câu hỏi tương tự
Quỳnh Anh Hồ
Xem chi tiết
Tường Vy
Xem chi tiết
Thanh Sơn
Xem chi tiết
khai nguyen
Xem chi tiết
Trương Ngọc Nhung장옥늉
Xem chi tiết
Nguyễn Hoàng Nam
Xem chi tiết
Quỳnh Anh Hồ
Xem chi tiết
Quỳnh Anh Hồ
Xem chi tiết
Quỳnh Anh Hồ
Xem chi tiết