Viết chương trình nhập 2 số nguyên a và b(a
Viết chương trình nhập 2 số nguyên a và b(a
By Maya
By Maya
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á