Đề thi học sinh giỏi cấp trường môn Tin học Khối 11 - Năm học 2019-2020 - Trường THPT Nguyễn Huệ (Có đáp án)

 SỞ GD&ĐT PHÚ YÊN ĐỀ THI HỌC SINH GIỎI CẤP TRƯỜNG NĂM HỌC: 2019-2020
TRƯỜNG THPT NGUYỄN HUỆ Môn: Tin học Khối: 11
 --***-- Thời gian: 150 phút (không kể thời gian phát đề)
 Đề thi gồm 3 bài, thí sinh ghi vào 3 files với tên Bai1.pas, Bai2.pas, Bai3.pas
 Sử dụng ngôn ngữ lập trình Pascal, lập trình giải các bài tập sau :
Bài 1 : (7 điểm) 
 Một số tự nhiên n được gọi là số Amstrong (số tự mãn) khi có tổng lập phương các chữ 
số bằng với chính nó. 
 Ví dụ : 153 = 13 + 53 + 33 153 là số Amstrong
Yêu cầu: Cho trước một số nguyên dương n bất kỳ. Hãy viết chương trình cho biết n có phải 
là số Amstrong hay không?
Dữ liệu vào: Từ tệp văn bản AMSTRONG.INP chứa số nguyên dương n (1≤ n ≤10000) bất 
kỳ.
Kết quả: Ghi vào tệp văn bản AMSTRONG.OUT dòng thông báo n là số Amstrong hoặc n 
không phải số Amstrong.
Ví dụ : 
 AMSTRONG.INP AMSTRONG.INP
 Test 1: 153 153 la so Amstrong
 Test 2: 370 370 la so Amstrong
 Test 3: 506 506 khong phai so Amstrong
Bài 2: (7 điểm) 
 Đầu năm học để quản lý tình trạng sức khỏe của học sinh, nhà trường tổ chức cho học 
sinh các lớp cân trọng lượng cơ thể. Mỗi học sinh được ghép vào một nhóm trọng lượng khác 
nhau.
Yêu cầu: Từ kết quả cân trọng lượng cơ thể học sinh của một lớp, hãy viết chương trình cho 
biết số học sinh theo từng nhóm trọng lượng. 
Dữ liệu vào: Từ tệp văn bản SUCKHOE.INP gồm 2 dòng:
 - Dòng đầu chứa một số nguyên dương n (n ≤ 50) là số lượng học sinh của một lớp.
 - Dòng 2, chứa lần lượt n số nguyên, mỗi số có giá trị 20≤ x i ≤ 100 là trọng lượng của 
một học sinh, giữa các giá trị ngăn cách ít nhất là một ký tự trống. SỞ GD & ĐT PHÚ YÊN ĐÁP ÁN ĐỀ THI HỌC SINH GIỎI CẤP TRƯỜNG 
TRƯỜNG THPT NGUYỄN HUỆ 
 KHỐI 11 - NĂM HỌC 2019-2020
 MÔN: TIN HỌC
 Bài 1: (7 điểm)
 program Amstrong;
 uses crt;
 var g,f: text;
 n, m, s:integer;
 kq:boolean;
 begin
 clrscr;
 assign(f, 'Amstrong.inp');
 reset(f);
 assign(g, 'Amstrong.out');
 rewrite(g);
 readln (f,m);
 n:=m;
 if n=0 then kq:=false
 else
 begin
 s:=0;
 while n0 do
 begin
 s:= s+(n mod 10)*(n mod 10)*(n mod 10);
 n:=n div 10;
 end;
 if s=m then kq:=true else kq:= false;
 end;
 if kq=true then writeln(g,m,' la so Amstrong')
 else writeln (g,m,' khong phai so Amstrong');
 close(f);
 close(g);
 readln;
 end.
 Bài 2: (7 điểm)
 program bai_2;
 uses crt;
 var g,f: text;
 A: array[1..50] of integer;
 n, i, j, dem, k :integer;
 kt:boolean;
 begin
 clrscr;
 assign(f, 'Suckhoe.inp');
 reset(f);
 assign(g, 'Suckhoe.out');
 rewrite(g);
 readln (f,n);
 for i:=1 to n do read(f,A[i]);
 dem:=0;