viết chương trình cho biết có bao nhiêu số lẻ trong các số từ 1 đến n (công việc này sẽ được dừng lại khi đếm được 10 số) giúp tôi với ạ =((
2 câu trả lời
program hello;
uses crt;
var le,n,i: integer;
begin
clrscr;
write('nhap n:'); readln(n);
le:=0;
for i:=1 to n do
if n mod 2 = 1 then le:=le+1;
writeln('co so so le la:',le);
readln
end.
viết chương trình cho biết có bao nhiêu số lẻ trong các số từ 1 đến n
uses crt;
var s,n,i:longint;
begin
clrscr;
write('n');read(n);
s:=0;
for i:=1 to n do
begin
if n mod i<>0 then s:=s+1;
end;
write(s);
readln;
end.
