Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình tổng S

Giải câu 2,3
----- Nội dung dịch tự động từ ảnh -----
10:51 SA G
45%
CHỈ ĐỌC - Đây là định dạng tệp cũ. Để thực hiện..
D. Còn tùy thuộc vào
bài toán.
Câu 14: Cho đoạn chương trình sau:
S:=0;
For i:=1 to 1 do S:=S+1;
Sau khi chạy đoạn chương trình trên, giá trị S là:
B. S=0. C. S=1. D. Không xác
A. S=100.
định.
Câu 15: Chỉ ra câu lệnh lặp với số lần lặp biết trước trong
các câu lệnh rút gọn sau đây?
A. While...do.
B. If – then – else.
С. If —
then.
D. For...do.
II. Tự luận
Câu 1: Nêu cú pháp câu lệnh lặp For .do và While ...do
trong pascal? Cho ví dụ về câu lệnh lặp?
Câu 2: Viết chương trình nhận biết một số tự nhiên N được
nhập vào từ bàn phím. In ra màn hình số chữ số lẻ từ 1 đến
n?
Câu 3: Viết chương trình nhập N số nguyên từ bàn phím và
in ra màn hình tổng S= 1/2+ 1/3+ ...+ 1/n?
Câu 4: Cho chương trình sau (bằng Turbo Pascal):
Begin {1}
Write('Tong cac so chan nho hon 50 la:’,t ); {2}
While i<50 do {3}
Begin {4}
If i mod 2 =0 then
Uses crt; {9}
Var i, t:integer; {10}
i:=1; t:=0; {11}
Clrscr; {12}
{5}
t:=t + i; {6}
i:=i+1; {7}
end; {8}
al Chương trình trên bị sai về vị trí các dòng {2}, {9},
{10}, {11}, {12}, hãy sắp xếp lại vị trí của các dòng này để
được chương trình đúng.
b/ Hãy cho biết công dụng của chương trình trên.
Câu5. Nhập vào mảng gồm N phần tử nguyên:
a. Tính tổng các phần tử chẵn.
b. Tính tổng các phần tử lẻ.
Đếm các phần tử chăn
d. Đếm các phần tử lẻ
E. Tìm phần tử lớn nhất, nhỏ nhất trong mảng trên.
Readln; {13}
End. {14}
с.