Em hãy viết chương trình tính tổng các số nguyên liên tiếp từ n đến m với n,m là các số nguyên dương nhập vào từ bàn phím. Giúp vs ạ

2 câu trả lời

program abc;

uses crt;
var n,m,s,i:longint;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   write('Nhap m: '); readln(m);
   for i:=n to m do s:=s+i;
   writeln('Tong cac so tu ',n,' den ',m,' la: ',s);
   readln
end.

xin hay nhất ạ

uses crt;
var n, m, cnt: longint;
begin
clrscr;
    read(n, m);
    cnt:=(m - n) + 1;
    writeln(((m + n) * cnt) div 2);
readln; readln;
end.