Viết chương trình nhập 2 số nguyên a và b(a { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình nhập 2 số nguyên a và b(a
0 bình luận về “Viết chương trình nhập 2 số nguyên a và b(a<b) từ bàn phím. Tính trung bình cộng 2 số trên đoạn [a,b]”
program tbc; uses crt; var a,b,sum,i:integer; BEGIN clrscr; write(‘Nhap vao a: ‘); readln(a); write(‘Nhap vao b: ‘); readln(b); sum := 0; for i:= a to b do sum := sum+i; write(‘TBC: ‘,sum/(b-a)); readln; END. Nếu mà đung cho em xin 5* nhá
program tbc;
uses crt;
var a,b,sum,i:integer;
BEGIN
clrscr;
write(‘Nhap vao a: ‘); readln(a);
write(‘Nhap vao b: ‘); readln(b);
sum := 0;
for i:= a to b do sum := sum+i;
write(‘TBC: ‘,sum/(b-a));
readln;
END.
Nếu mà đung cho em xin 5* nhá