viết chương trình con đọc từ tệp tong-ad.txt và tệp tong-cl.txt cho biết độ dài xâu loại bỏ dấu cách và ghi vào tệp output.txt jup vs
2 câu trả lời
program bai_giai;
var f,g:text;
s:string;
i,d:integer;
begin
Assign(f,'tong_ad.txt'); reset(f);
Assign(g,'tong_cl.txt'); rewrite(g);
readln(f,s);
d:=0;
for i:=1 to length(s) do
if s[i]<>' ' then d:=d+1;
write(g,d);
close(f); close(g);
end.
uses crt;
var f:text; i:longint; s:string;
begin
clrscr;
assign(f,'tong-ad.txt');reset(f);
readln(f,s);
close(f);
assign(f,'output.txt');rewrite(f);
for i:=1 to length(s) do
while s[i]=' ' do delete(s,i,1);
writeln(f,length(s));
close(f);
end.
