Cho tệp SN.INP gồm 2 số nguyên . viết chương trình tính hiệu của hai số đó và ghi kết quả vào tệp SN.OUT

0 bình luận về “Cho tệp SN.INP gồm 2 số nguyên . viết chương trình tính hiệu của hai số đó và ghi kết quả vào tệp SN.OUT”

1. uses crt;

   const fi=’sn.inp’;

   var f1:text;

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

   i,n,dem:integer;

   begin

   clrscr;

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

   n:=0;

   while not eof(f1) do

   begin

   inc(n);

   read(f1,a[n]);

   end;

   dem:=0;

   for i:=1 to n do

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

   writeln(dem);

   close(f1);

   readln;

   end.

   Bình luận

2. var f,g:text;

         a,b:integer;

   begin

          Assign(f,’SN.INP’);       reset(f);

          Assign(g,’SN.OUT’);       rewrite(g);

          readln(f,a,b);

          write(g,a,’ – ‘,b,’ = ‘,a-b);

          close(f); close(g);

   end.

   Bình luận