Câu 2; nhập hai số nguyên dương M,N đưa ra tổng các số lẻ trong phạm vi từ M đến N?
2 câu trả lời
uses crt;
var a:array[1..100] of longint;
M,N,i:longint;
begin
write('nhap m,n: ');readln(m,n); {nếu cần thiết bạn viết thêm lệnh kiểm tra xem m<n hay không}
for i:=m to n do
if i mod 2<>0 then tong:=tong+i;
write('Tong cac so le tu m den n la: 'tong);
readln
end.
uses crt;
var m,n,i,s:integer;
begin
clrscr;
readln(m);
readln(n);
for i:=m to n do {chỉ sd trong t/h m<n thôi còn lớn hơn thì bạn có thể sd : for i:=n to m do}
if i mod 2<>0 then s:=s+i;
write(s);
readln;
end.
Câu hỏi trong lớp
Xem thêm
