BÀI TẬP 10: KIỂM TRA CHẴN LẺ CỦA MỘT SỐ_XỬ LÝ FILE

 

Viết chương đọc giá trị cho biến n từ tệp dữ liệu.inp và ghi tệp ketqua.out đưa ra n là số chẵn hay số lẻ

CODE THAM KHẢO:

program chan_le;

const fi = 'dulieu.inp';

      fo = 'ketqua.out';

var n: integer;

    f: text;

begin

        assign(f,fi); reset(f);

        read(f,n);

        close(f);

        assign(f,fo); rewrite(f);

        if odd(n) then write(f,n,' la so le')

        else write(f,n,' la so chan');

        close(f);

end.