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(M
0 bình luận về “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.
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.
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.