Đề bài : đọc từ tệp 2 số nguyên m và n . M bé hơn n đếm các số lẻ trong phạm vi từ m đến n ghi kết quả ra 1 tệp khác

0 bình luận về “Đề bài : đọc từ tệp 2 số nguyên m và n . M bé hơn n đếm các số lẻ trong phạm vi từ m đến n ghi kết quả ra 1 tệp khác”

1. program dem_le;

   var f,g:text;

        m,n,i,d:integer;

   begin

        Assign(f,’DULIEU.TXT’);  reset(f);

        Assign(g,’KETQUA.TXT’);   rewrite(g);

        readln(f,m,n);

        d:=0;

        for i:=m to n do

              if i mod 2=0 then d:=d+1;

        write(g,’Co ‘,d,’ so le’);

        close(f);  close(g);

   end.

   Bình luận

2. ĐÁP ÁN

   Var f1, f2: text;

     Tong, m, n, i: integer;

   Begin

     assign(f1, ‘DULIEU.TXT’);

     reset(f1);

     assign(f2, ‘KETQUA’);

     rewrite(f2);

     Tong;= 0;

     read(f1, m, n);

     for i:= m to n do

     if i mod 2 = 0 then Tong:= Tong+i;

     write(f2, Tong);

     close(f1);

     close(f2);

   End.

   Bình luận