1. nhập 2 xâu S1, S2 vào bàn phím 2. cho biết độ dài mỗi xâu. Ghi dữ liệu vào tệp trong ổ đĩa E:\KQ.TXT
2 câu trả lời
program bai_giai;
uses crt;
var f:text;
s1,s2:string;
begin
clrscr;
Assign(f,'E:\KQ.TXT'); rewrite(f);
readln(s1);
readln(s2);
writeln(f,length(s1));
writeln(f,length(s2));
close(f);
end.
uses crt;
var s1,s2:string;
f:text;
begin
clrscr;
readln(s1);
readln(s2);
assign(f,'E:\KQ.TXT');rewrite(f);
writeln(f,length(s1));
write(f,length(s2));
close(f);
end.
Câu hỏi trong lớp
Xem thêm
