Dương Tử Kì
Hỏi từ APP VIETJACK
Vt chương trình đọc 2 xâu kí tự ( độ dài <200) từ tệp input.txt
A) chuyển kí tự đầu tiên của xâu thứ nhất thành kí tự hoa
B) đếm slg các kí tự là chữ số trong câu thứ 2. Ghi kết quả vào tệp output txt
A) chuyển kí tự đầu tiên của xâu thứ nhất thành kí tự hoa
B) đếm slg các kí tự là chữ số trong câu thứ 2. Ghi kết quả vào tệp output txt
Quảng cáo
1 câu trả lời 330
b,
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
write('Xau sau khi xoa so la: ');
for i:=1 to d do
if not(st[i] in ['0'..'9']) then write(st[i]);
writeln;
dem:=0;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln('Xau co ',dem,' dau cach');
writeln('Do dai cua xau la: ',d);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86469
Gửi báo cáo thành công!
