Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lê Gia Hiếu

viết chương trình nhập vào 1 xâu S từ phím. Ghi các kí tự in hoa trong xâu S vào tệp 'VB.txt'

Nguyễn Lê Phước Thịnh
20 tháng 5 2022 lúc 20:49

uses crt;

const fi='vb.txt'

var f1:text;

st:string;

i,d:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

readln(st);

d:=length(st);

for i:=1 to d do 

  if st[i] in ['A'..'Z'] then write(f1,st[i]:4);

close(f1);

readln;

end.


Các câu hỏi tương tự
lamgi hoi
Xem chi tiết
Nguyễn Thảo Vy
Xem chi tiết
Trung Nguyễn
Xem chi tiết
Trang Nguễn
Xem chi tiết
Lê Đình Quý
Xem chi tiết
Nguyễn Thị Mỹ Tiền
Xem chi tiết
minh
Xem chi tiết
LA VAN CAU
Xem chi tiết
Anh Duc
Xem chi tiết