Определить сумму всех чисел от N до M.

Question

Определить сумму всех чисел от N до M.

Answer 1

На языке паскаль
program summa;

var
n, m, i, sum: integer;
begin

write (' введите N: '); readln (n);
write (' введите M: '); readln (m);
sum := 0;
for i:=n to m do
sum := sum + i;
writeln (sum);

readln
end.

Comments

если можно на языке Паскаль

---

надо было в задании указывать, щас попробую

Answer 2

Var n,m : Integer;
Begin
 Write (' введите N: '); Readln (n);
 Write (' введите M: '); Readln (m);
 Writeln ((n+m)*(m-n+1) div 2);
end.