Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap N='); readln(n);
i:=1; t:=0;
while i<=n do
begin
if i mod 2=0 then t:=t+i;
i:=i+1;
end;
write(t);
readln
end.
Dùng vòng lặp không xác định đếm xem có bao nhiêu số lẻ \(\le\) n
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát
Sử dụng lệnh lặp for..do. Viết chương trình in ra 50 số chẵn tự nhiên đầu tiên?
1.Viết cú pháp câu lệnh lặp. Cho VD?
2. Viết cú pháp cân bằng câu lệnh lặp chưa biết. Cho VD?
3.Viết chương trình in ra tổng các số chẵn nhỏ hơn hoặc bằng n (với n được nhập)
4. Viết chương trình in ra tổng các số lẻ nhỏ hơn hoặc bằng n ( với n được nhập)
5. Viết chương trình phép tính tổng của nhiều số (chưa biết số nào). Nhập số 0 để kết thúc quá trình nhập.
6. Kiểu dữ liệu mảng là gì? Viết cú pháp kiểu dữ liệu mảng?
tính tổng các số tự nhiên từ 100 đến 1000 (vòng lặp với số lặp chưa biết)
Em hãy viết chương trình tính tổng các số chẵn từ 1 đến N trong đó N là số được nhập từ bàn phím (N<=100)
a/. Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? Kết thúc giá trị của S bằng bao nhiêu?
b/. Viết chương trình bằng Pascal để mô tả thuật toán đó.
B1: S ! 20, n! 1;
B2: Nếu S ≥ 5, chuyển B4.
B3: n ! N + 1, S ! S - n và quay lại B2.
B4: Thông báo S và kết thúc thuật toán.
a/. Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? Kết thúc giá trị của S bằng bao nhiêu? b/. Viết chương trình bằng Pascal để mô tả thuật toán đó. B1: S ← 20, n←1; B2: Nếu S ≥ 5, chuyển B4. B3: n ←N + 1, S ← S - n và quay lại B2. B4: Thông báo S và kết thúc thuật toán.
