Hỏi đáp Lớp 8

Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
Dữ liệu: Vào từ file văn bản DANGOAI.INP có cấu trúc:

• Hàng 1: ghi hai số nguyên dương A, M là số áo và mũ (10 ≤ A, M  ≤ 103).
• Hàng 2: ghi số nguyên dương T là số thành viên tham dự đợt dã ngoại.

Kết quả: Ghi vào file DANGOAI.OUT có cấu trúc:

• Hàng 1: lần lượt là số áo, số mũ mỗi thành viên được phát (mỗi số cách nhau một ký tự trắng).
• Hàng 2: lần lượt là số áo, số mũ còn thừa.

cho a và b được nhập vào từ bàn phím. Viết chương trình in ra các số chia hết cho 2 trong đoạn a và b

Viết chương trình cho phép nhập một dãy gồm n số nguyên từ bàn phím (0<n<=100), gồm các phần tử A ={ a1, a2,...an} và thực hiện

a) sắp xếp và in dãy số vừa nhập theo thứ tự giảm dần

b) in ra phần tử có giá trị tuyệt đối lớn nhất trong dãy

viết chương trình nhập tháng năm, kiểm tra xem tháng đó có bao nhiêu ngày trên free pascal

- Buổi sáng từ 7g đến 11g. Một giờ công 20000 đồng
- Buổi chiều từ 12g đến 17g. Một giờ công 30000 đồng
- Buổi tối từ 18g đến 21g. Một giờ công 60000 đồng

Lưu ý: Những giờ không làm thì không tính tiền công

Viết chương trình nhập 3 số nguyên dương, kiểm tra xem nó có là cạch của tam giác vuông cân đều.

Viết chương trình nhập 1 mảng không quá 15 phần tử, tính tổng in ra màn hình tổng số lớn nhất, số nhỏ nhất.

Cho biết tính hợp lệ của các câu lệnh sau và lí do nếu không hợp lệ

a. for i:=1 to 10 do x:=x+1 ;

b. for i:=10 to 1 do x:=x+1 ; 

c. for i:=1 to 10 for j:=1 to 10 do x:=x+1 ;

d. for i:=1 to 10 do for i:=1 to 10 do x:=x+1 ;

e. while i:=1 do t:=10;

f. while a <= b ; do write('b khong nho hon a' ) ;

g. while 1=1 do write( toi lap trinh gioi);

i. var A:array[1...10] of real;

j. var Diemtoan[35..1] of integer;

1/Tính tổng các phần tử trong mảng. 

2/Tính tổng các phần tử lẻ trong mảng.   

3/Tính tích các phần tử trong mảng.   

4/Tính tích các phần tử lẻ trong mảng.   

5/Tìm trung bình cộng các phần tử trong mảng

Cho đoạn chương trình sau:

S:=0; n:=0;

While S<=10 do

Begin

n:=n+1

S:=S+n

End;