B1 đọc tệp " bai.txt" 2 số nguyên A và B ( A<B) Tính tổng các số chẵn trong phạm vi từ A đến B. Ghi kết quả ra tệp " kq.out". B2 viết chương trình cho phép nhân hai số vào hai biến, thực hiện đổi giá trị của hai biến cho nhau. :< pascal ạ
2 câu trả lời
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.
program bai_giai;
var f,g:text;
a,b,i,t:longint;
begin
Assign(f,'bai.txt'); reset(f);
Assign(g,'kq.out'); rewrite(g);
readln(f,a,b);
t:=0;
for i:=a to b do
if i mod 2=0 then t:=t+i;
writeln(g,t);
writeln(g,a*b);
t:=a; a:=b; b:=t;
writeln(f,a,' ',b);
close(F); close(g);
end.
