Bài 11: Kiểu mảng

MH

Giúp em với ạ

NT
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.

Bình luận (0)

Các câu hỏi tương tự
QH
Xem chi tiết
TV
Xem chi tiết
TS
Xem chi tiết
KN
Xem chi tiết
TN
Xem chi tiết
NN
Xem chi tiết
QH
Xem chi tiết
QH
Xem chi tiết
QH
Xem chi tiết