Bài 1: Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n(với n được nhập) Yêu cầu : Sử dụng vòng lặp với số lần chua biết trước M

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.