Quảng cáo
2 câu trả lời 331
1 năm trước
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.
1 năm trước
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
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!