viết dùm mình chương trình. nhập hai xâu ghi kết quả ra tệp outp.txt
2 câu trả lời
uses crt;
var str1,str2: string;
f1: text;
begin
assign(f1,outp.txt);
rewrite(f1);
write('Nhap xau thu nhat: ');
readln(str1);
write('Nhap xau thu hai: ');
readln(str2);
writeln(f1,str1);
writeln(f1,str2);
close(f1);
end.
uses crt;
var st: string;
f1: text;
begin
assign(f1,outp.txt);rewrite(f1);
readln(st);
writeln(f1,st);
readln(st);
writeln(f1,st);
close(f1);
end.
Câu hỏi trong lớp
Xem thêm
