Question

Cho tệp cau2.txt chứa một xâu kí tự bất kì,viết chương trình chuyển các kí tự trong xâu thành kí tự in hoa,kết quả ghi ra tệp KQ.txt

Answer 1

code pascal

var f,g:text;

var s:string;

begin

assign(f,'cau2.txt'); reset(f);

read(f,s);

assign(g,'KQ.txt'); rewrite(g);

write(g,upcase(s));

close(f);

close(g);

end.