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
0 bình luận về “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”
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.
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.