XIN Ý TƯỞNG ĐỂ CHƯƠNG TRÌNH KHÔNG BỊ TIME LIMIT EXCEED
Viết chương trình đọc vào hai số thực dương a và b và tính tổng bình phương tất cả các số
nguyên không nhỏ hơn a và không lớn hơn b.
Dữ liệu nhập: Gồm một dòng chứa hai số thực dương a, b (0 < a ≤ b ≤ 10^9)
Dữ liệu xuất: Một số nguyên nhất là phần dư của S chia cho 10^9+7, trong đó S là tổng cần tìm
uses crt; var n,m:longint; a,b:real; begin clrscr; readln(a,b); n:=trunc(a); m:=trunc(b); if n<a then inc(n); if m<b then inc(m); writeln((m*(m+1))/2-(n*(n+1))/2:0:0); readln end.
program bai_giai; uses crt; var a,b:real; x,y,i,S:longint; begin clrscr; write('Nhap a: '); readln(a); write('Nhap b: '); readln(b); x:=trunc(a); y:=trunc(b); if x<a then x:=x+1; if y>b then y:=y-1; S:=0; for i:=x to y do S:=(S+i*i) mod (1000000000+7); write(s); readln; end.