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
Program Hotboy ;
Uses crt;
Var i,m,n ,s : integer;
for i:=m to n do
Begin
Clrscr;
S:=0;
If i mod 2 =1 then
s:=s+i;
End;
write('Tong cac so tu m den n le la',S);
readln
end.
uses crt;
var m,n,s,i:integer;
begin
clrscr;
readln(m);
readln(n);
for i:=m to n do{th:m<n thôi nha}
begin
if i mod 2<>0 then s:=s+i;
end;
write(s);
readln;
end.
Câu hỏi trong lớp
Xem thêm
