Viết chương trình nhập vào 1 xâu gồm có chữ và số rồi lưu vào tệp có tên tepchuso.txt
2 câu trả lời
uses crt;
var f:text;
s:string;
begin
assign(f.'tepchuso.txt');
rewrite(f);
write('Nhap xau: '); readln(s);
write(f,s);
close(f);
readln
end.
program bai_giai;
uses crt;
var s:string;
fo:text;
begin
clrscr;
readln(s);
Assign(fo,'tepchuso.txt'); rewrite(fo);
write(fo,s);
close(fo);
end.
Câu hỏi trong lớp
Xem thêm
