Question

Câu 1: Viết chương trình nhập vào một xâu bất kì gồm các ký tự từ A đến Z in ra màn hình xâu sau khi đã xoá bỏ các ký tự A.Dữ liệu vào: cho tệp: Xau.inp là xâu s

kết quả: ghi tệp Xau.out là kết quả xâu s sau khi loại bỏ các ký tự A

Câu 2:Viết chương trình nhập vào một xâu bất kỳ cho biết xâu có bao nhiêu từ( mỗi từ là một dãy các ký tự khác ký tự trắng liên tiếp nhau).Dữ liệu vào: cho tệp:Xau.inp là xâu s

kết quả:ghi tệp Xau.out là kết quả xâu S sau khi loại bỏ các ký tự A

Answer 1

Câu 1:

const fi='xau.inp';
fo='xau.out';
var f1,f2:text;
s:string;
i,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
d:=length(s);
for i:=1 to d do
if s[i]='A' then
begin
delete(s,i,1);
d:=length(s);
end;
for i:=1 to d do write(f2,s[i]);
close(f1);
close(f2);
end.

Câu 2:

const fi='xau.inp';
fo='xau.out';
var f1,f2:text;
s:string;
i,d,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i]=' ' then inc(dem);
writeln(f2,dem+1);
close(f1);
close(f2);
end.