viết chương trình đếm số lẻ từ m đến n (m<n). đếm cho đến khi được 10 số lẻ thì dừng
2 câu trả lời
var m,n,i,i:longint;
begin
write('m,n');
readln(m,n);
i:=1;
if m<n then
begin
for i:=m to n do
if i mod 2 <>0 then
begin
s:=s+1
if s=10 then write(s);
end
else write('dieu kien m<n sai');
readln;
end.
uses crt;
var i,m,n,d:longint;
begin
clrscr;
write('Nhap m,n: ');readln(m,n);
for i:=m to n do
begin
if i mod 2=1 then d:=d+1;
if d=10 then break;
end;
writeln('So so le: ',d);
readln
end.
Câu hỏi trong lớp
Xem thêm
