Giúp em vs đang gấp lắm ạ. Viết chương trình để đọc dãy số nguyên. Hãy ghi vào tệp ketqua.txt các số là số chẵn

0 bình luận về “Giúp em vs đang gấp lắm ạ. Viết chương trình để đọc dãy số nguyên. Hãy ghi vào tệp ketqua.txt các số là số chẵn”

1. const fi=’dulieu.txt’;

   fo=’ketqua.txt’;

   var i:integer;

   Dem:byte;

   f1,f2:text;

   a:array[1..100]of integer;

   begin

   assign(f1,fi); reset(f1);

   assign(f2,fo); rewrite(f2);

   Dem:=0;

   for i:=1 to n do

   begin

   read(f1,a[i]);

   If a[i] mod 2 = 0 then inc(dem);

   end;

   writeln(f2,dem);

   close(f1);

   close(f2);

   end.

   Bình luận

2. Const Fo=’KETQUA.TXT’;
   Var g: text;
       A: array[1..1000] of longint;
       n,i: longint;
   Begin
           Assign(g,Fo); Rewrite(g);
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;

           For i:=1 to n do
                   If A[i] mod 2 = 0 then Write(g,A[i],’ ‘);
           Close(g);
   End.

   Bình luận