... k,i:integer; begin assign(f1,fo); rewrite(f1); dem1:=0; a[1]:=1; b[1]:=true; try(2); writeln(f1,dem1); close(f1); end; begin docf; fillchar(b,sizeof(b),false); dem:=0; xuly; end ... mang=array[1 20] of byte; mang1=array[1 20] of boolean; var n:byte; a:mang; b:mang1; f1:text; dem,dem1:longint; s:string; i:integer; procedure docf; var f:text; n1:byte; begin assign(f,fi); reset(f); ... kt:=false; exit; end; if (kt=true) then begin for t:=1 to n write(f,a[hoanvi[t]],' '); writeln(f); inc(dem); end; end; procedure try(i:integer); var j:integer; begin for j:=1 to n if (chuaxet[j]) then...
... Sở giáo dục Đào tạo Hà Nội ĐềthiHSG lớp cấp thành phố Năm học 2005 2006 -Môn thi : Tin học Ngày thi : 29- 03-2006 Thời gian làm 120 phút ... thứ tự 2, 3, 5, 4, Sở giáo dục Đào tạo Hà Nội ĐềthiHSG lớp cấp thành phố Năm học 2006 2007 -Môn thi : Tin học Ngày thi : 30-03-2007 Thời gian làm 120 phút ... cặp số nguyên dơng 6, 4; 3,5 7, K=2 A K=3; M=1 , MM= S=1 .92 Câu 3: Chia quà (7điểm) Tên chơng trình CAU3.PAS Ban tổ chức kỳ thi Olympic tin hoc 2007 nhận đợc từ nhà tài trợ N gói quà đánh số từ...
... write(g,max[1],max[2],':',max[3],max[4],':',max[5],max[6]); end; writeln(g); write(g,(t2-t1)/18.2:0 :9) ; close(f1);close(g); end {bai thihsg 20 09} const var fo='per.inp'; go='per.out'; d,i,p,q,n:longint; f,g:text; begin ... dài dãy giảm dài nhng hoán vị (1,4,3,2) có thứ tự từ điển nhỏ Hết Cán coi thi không giải thích thêm const f:array[0 9] of byte=(6,2,5,5,4,5,6,3,7,6); fo='hms.inp'; go='hms.out'; var i:array[1...
... Trong Word 2000 để dịch chuyển nhanh trỏ cuối văn A Ctrl + Insert C Ctrl + Delete B Ctrl + Home D Ctrl + End đềthi TNkq môn: tin học năm học 2006 - 2007 Khối Đề số Em chọn phơng án trả lời điền ... + E Câu 19: Lệnh File / Save as dùng để? A Lu văn B Lu văn với tên khác C Mở văn lu D A, B Câu 20: Đa trỏ đầu dòng nhanh nhất: A Ctrl + Home B Home C Ctrl + End D End Đềthi TNkq môn: tin học ... máy tính: A ấn nút Power CPU B ấn Ctrl + O D A, B, C sai B ấn Ctrl + Shift + Del C ấn nút Reset CPU D Cả A, B, C Câu 9: Phím NumLock có tác dụng? A Mở tắt phím số phía phải bàn phím B Mở tắt phím...
... Drawing C A, B D A, B sai 14 Đềthi tnkq môn: tin học Năm học: 2006 2007 Khối Đề số Em chọn phơng án trả lời điền dấu x vào phiếu trả lời Câu 1: Hộp thoại Page Setup Word 97 dùng để: A Định dạng kí ... phím Ctrl + có tác dụng: A Dãn dòng đôi C Dãn dòng đơn B Dãn dòng rỡi D Dãn dòng nhỏ Đềthi tnkq môn: tin học Năm học: 2006 2007 Khối Đề số Em chọn phơng án trả lời điền dấu x vào phiếu trả ... S Câu 18: Trong Paint (của hệ điều hành Window 98 ) muốn tăng độ dày nét vẽ, ta ấn: A Phím dấu + B Phím dấu C Phím dấu cách D A, B, C sai Câu 19: Tổ hợp phím Ctrl + R dùng để? A Xoay, lật hình...
... PHÒNG GD&ĐT NÚI THÀNH HỘI THI HỌC SINH GIỎI TIN HỌC CẤP TIỂU HỌC ĐỀTHI THỰC HÀNH SỐ (Paint) Thời gian làm 20 phút Địa điểm thi: Trường THCS Trần Cao Vân Ngày thi : 19/ 02/20 09 Bài (3 điểm) Lá cờ Việt ... PHÒNG GD&ĐT NÚI THÀNH HỘI THI HỌC SINH GIỎI TIN HỌC CẤP TIỂU HỌC ĐỀTHI THỰC HÀNH SỐ (Logo) Thời gian làm 20 phút Địa điểm thi: Trường THCS Trần Cao Vân Ngày thi : 19/ 02/20 09 Bài (3 điểm) Hãy viết ... Việt Nam Lưu tranh vào tập tin có tên B** bmp (B số báo danh) nằm My Documents Bài (7 điểm) Giờ chơi Hãy vẽ tranh mô tả quang cảnh chơi trường em Lưu tranh vào tập tin có tên C** bmp (C số báo...