B1 đọc tệp ” bai.txt” 2 số nguyên A và B ( A

15/07/2021

By Savannah

B1 đọc tệp ” bai.txt” 2 số nguyên A và B ( A { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " B1 đọc tệp ' bai.txt' 2 số nguyên A và B ( A

uses crt;
var f:text; a,b,i,s,t:longint;
begin
clrscr;
   assign(f,’bai.txt’);reset(f);
      readln(f,a,b);
   close(f);
   assign(f,’kq.out’);rewrite(f);
      s:=0;
      for i:=a to b do 
         if i mod 2=0 then inc(s,i);
      writeln(f,s);
      writeln(f,’Tich: ‘,a*b);
      t:=a; a:=b; b:=t;
      writeln(‘Sau khi hoan doi: ‘,a,’ ‘,b);
   close(f); 
end.