Quảng cáo
2 câu trả lời 524
code pascal
var f,g:text;
var s:string;
begin
assign(f,'cau2.txt'); reset(f);
read(f,s);
assign(g,'VB.txt'); rewrite(g);
write(g,upcase(s));
close(f);
close(g);
end.
code pascal
var f,g:text;
var s:string;
begin
assign(f,'cau2.txt'); reset(f);
read(f,s);
assign(g,'VB.txt'); rewrite(g);
write(g,upcase(s));
close(f);
close(g);
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86469
Gửi báo cáo thành công!
