Đăng nhập để hỏi chi tiết
0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
5257
3317
* Làm Pascal nhé !
*Cách 1 : vòng lặp
uses crt;
var a, b , sum, i : longint ;
begin
clrscr;
read(a,b);
sum := 0 ;
for i := a to b do sum := sum + i ;
write(sum);
readln ;
end .
*Cách 2 : công thức toán (chỉ tham khảo)
uses crt;
var a, b , n : longint ;
begin
clrscr;
read(a,b);
n := b - a + 1 ;
write((n*(n+1))/2:0:0);
readln ;
end .
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin