Bài 2 HSG Tin 8 giúp mình vs ạ! Trong giờ ra chơi, Nam và các bạn trong lớp đua nhau viết ra một dãy số có độ dài n số Khi đánh trống vào lớp, Nam và các bạn c
Bài 2 HSG Tin 8 giúp mình vs ạ! Trong giờ ra chơi, Nam và các bạn trong lớp đua nhau viết ra một dãy số có độ dài n số Khi đánh trống vào lớp, Nam và các bạn chưa kịp xóa bảng, thì thầy giáo bước vào ngay. Thầy giáo thấy dãy số và thầy liền viết thêm một số nguyên dương T . Rồi thầy ra câu đố là: Các em hãy cho biết có bao nhiêu đoạn con trong dãy số trên có tổng đúng bằng T. Thầy giáo ra câu đố quá đột xuất nên cả Nam và các bạn trong lớp đều bối rối. Em hãy giúp Nam và các bạn tìm ra lời giải cho câu đố trên. Yêu cầu: Hãy tính số lượng đoạn con có tổng đúng bằng T trong dãy số n số. Dữ liệu vào: Cho từ tệp văn bản DOANCON.INP có cấu trúc: - Dòng thứ nhất: Gồm hai số n (0
Lời giải 1 :
BÀI LÀM
Uses CRT;
Var a:Array[1..100] of Integer;
k,t,s,i,j,d: Integer;
st: String;
f:Text;
Begin
ClrScr;
Assign (f,'d:\pascal\doancon.inp');
Reset (f);
Read (f,k);
Readln (f,t);
For i:=1 to k do Read (f,a[i]);
Close (f);
Assign (f,'d:\pascal\doancon.out');
Rewrite (f);
d:=0;
For i:=1 to k do
Begin
j:=i;
s:=0;
While (s<t) and (j<=k) do
Begin
s:=s+a[j];
j:=j+1;
End;
If s=t then
d:=d+1;
End;
Write (f,d);
Close (f);
Readln;
End.
@TrangCute
→CHÚC BẠN HỌC TỐT!←
Thảo luận
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247