Question

Nhập vào số n

In ra các số lẻ từ 1 đến n. cứu mình pascal với ạ

 

Answer 1

1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35,37,39,41,43,45,47,49,51,53,55,57,59,61,63,65,67,69,71,73,75,77,79,81,83,85,87,89,91,93,95,97,99.

 

Answer 2

program OddNumbers;

var
    n, i: integer;

begin
    writeln('Nhập vào số n: ');
    readln(n);
    writeln('Các số lẻ từ 1 đến ', n, ' là:');
    
    for i := 1 to n do
    begin
        if i mod 2 <> 0 then
            writeln(i);
    end;
end.