Đăng nhập để hỏi chi tiết


Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
program SumRange;
var
L, R: LongInt;
Total: Int64;
begin
// Nhập dữ liệu từ bàn phím
Write('Nhap L: ');
Readln(L);
Write('Nhap R: ');
Readln(R);
// Kiểm tra tính hợp lệ
if (L < 1) or (R < L) or (R > 1000000000) then
begin
Writeln('Du lieu khong hop le!');
Halt(1);
end;
// Tính tổng theo công thức cấp số cộng
Total := Int64(R - L + 1) * Int64(L + R) div 2;
// In kết quả ra màn hình
Writeln('Tong tu ', L, ' den ', R, ' la: ', Total);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
![]()
Từ `L` đến `R` có số số là: `R - L + 1` (số)
`=>` Tổng cần tìm là: `(R + L) . (R - L + 1) : 2` (Theo công thức tính tổng dãy số)
uses crt;
var l,r:longint;
begin
readln(l,r);
writeln((r-l+1)*(r+l) div 2);
end.Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
1430
25238
482
code lấy đâu ra v :v