Trong tệp Bai_tap. txt có chứa các cặp số nguyên tương ứng với các cạnh của hình chữ nhật. Hãy tính diện tích và ghi kết quả vào tệp KQ.txt
Giúp mình với ạ! Mình cảm ơn😍
uses crt; var f1,f2:text; a,b:longint; const fi='Bai_tap.txt'; fo='KQ.txt'; begin assign(f1,fi);reset(f1); assign(f2,fo);rewrite(f2); while not(eof(f1)) do begin readln(f1,a,b); writeln(f2,a*b); end; close(f1);close(f2); end.
uses crt; var f,f1:text; a,b:longint; begin clrscr; assign(f,'Bai_tap.txt');reset(f); assign(f1,'KQ.txt');rewrite(f1); while not(eof(f)) do begin readln(f,a,b); writeln(f1,a*b); end; close(f1); close(f); end.