uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0; i:=1;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
readln;
end.
1.sử dụng câu lệnh lặp với số lần chưa biết trước viết chương trình tổng và tích của 10 số tự nhiên đầu tiên
2.sử dụng câu lệnh lặp với số lần biết trước viết công thức in ra màn hình dãy số tự nhiên từ 1 đến 10
Viết chương trình nhập vào từ bàn phím một số nguyên dương n, in ra màn hình các số lẻ nhỏ hơn hoặc bằng số nguyên dương n. Chương trình yêu cầu nhập lại nếu n <=0. (Sử dụng câu lệnh While … do)
Viết chương trình thực hiện tính tổng dãy số S= 11+13+15+...+101 ( sử dụng lệnh lặp với số lần chưa biết trước)
Viết chương trình in ra màn hình sử dụng vòng lặp while để in ra màn hình tổng các số có giá trị lớn hơn 2.000 với n là số tự nhiên lớn hơn 2
Viết chương trình sử dụng lệnh lặp While ... do ... để thực hiện công việc sau
- Nhập vào số nguyên n (10<n<100)
-In ra màn hình tất cả các ước của n
-Tính tổng và thông báo các ước của n là số chẵn
