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
2 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
