viết chương trình đọc số nguyên n từ tệp songuyen.txt; ghi vào tệp kluan.txt kết luận n là số chẵn hay số lẻ? biết tệp songuyen.txt chứa 5 số nguyên m

0 bình luận về “viết chương trình đọc số nguyên n từ tệp songuyen.txt; ghi vào tệp kluan.txt kết luận n là số chẵn hay số lẻ? biết tệp songuyen.txt chứa 5 số nguyên m”

1. var f1, f2: text;
       a: array [1..5] of integer;
       i: byte;
   begin
        assign(f1, ‘songuyen.txt’);
        reset(f1);
        assign(f2,’kluan.txt’);
        rewrite(f2);

        for i:=1 to 5 do
            readln(f1,a[i]);

        for i:=1 to 5 do
            if (a[i] mod 2 = 0) then writeln(f2,’So ‘,a[i],’ la so chan’) else writeln(f2,’So ‘,a[i],’ la so le’);

        close(f1);
        close(f2);
   end.

   Trả lời