chào mấy bác, mấy bác giỏi tin giúp e mấy bài này với.
1. Viết chương trình ghi vào tệp songuyen.txt 2 số nguyên a, b.
2. Viết chương trình đọc từ tệp songuyen.txt 2 số nguyên a, b và tính tổng 2 số nguyên đọc từ tệp.
3. Viết chương trình nhập vào một xâu và xuất ngược xâu đó.
Thank mấy bác.
3) uses crt;
var i : integer;
st : string;
begin clrscr;
write(‘Nhap xau :’); readln(st);
for i:=length(st) downto 1 do write(st[i]);
readln end.
1) và 2) :
uses crt;
var a,b : integer;
begin clrscr;
assign(input,’songuyen.txt2′);
assign(output,’songuyen.txt3′);
reset(input); rewrite(output);
read(input,a,b);
write(output,a+b);
close(input); close(output);
readln
end.