Tính tổng các số nguyên từ M đến N(M<N). Với M,N được nhập từ bàn phím

uses crt; var s,i,m,n:longint; begin clrscr; write('M,N= ');readln(m,n); for i:=m to n do s:=s+i; writeln(s); readln; end.

Tính tổng các số nguyên từ M đến N(M

01/08/2021

By Athena

Tính tổng các số nguyên từ M đến N(M { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Tính tổng các số nguyên từ M đến N(MTrả lời

uses crt;

var m,n,i,t:integer;

begin

clrscr;

write(‘m=’); readln(m);

write(‘n=’); readln(n);

t:=0;

if m>n then

begin

for i:=m to n do

t:=t+i;

end;

writeln(t);

readln;

end.