var n,i:integer;
begin
write('nhap so n: ');readln(n);
for i :=1 to n do
begin
if n mod 2 <> 0 then
begin
write(i);
end;
end.
Mô tả: bạn sẽ cho duyệt chạy từ 1-> n số nào không chia hết cho 2 có nghĩa là số lẻ và bạn chỉ cần in ra.
2)
var n,s,i:integer;
begin
write('nhap so n: ');readln(n);
s:=0;
for i :=1 to n do
begin
s:= s+i;
write(s);
end;
end.
Mô tả bạn cho chạy từ 1->n qua phần từ i dùng biến s để cộng tất cả những phần tử này lại và in s là ra.