Question

v​iết câu lệnh tính tổng các số nguyên trong phạm vi từ M dến N

​

​

​

Answer 1

s:=0

for i:=m to n do

if i mod 1<>0 then

s:=s+i

Answer 2

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.