Tác giả: Đình Trọng

Đề bài: Nhập số n vào từ bàn phím in ra tất cả các số nguyên tố nhỏ hơn hoặc bằng n, tính tổng các số nguyên tố đó. Yêu cầu dùng vòng lặp FOR. Biến KT dùng để xác định số i (chạy từ 2 đến n) có phải là số nguyên tố hay không.

A. Các hệ số. Hệ đếm được hiểu như tập hợp các ký hiệu và quy tắc sử dụng tập ký hiệu đó để biểu đạt giá trị số bất kỳ. Có các hệ đếm cơ bản sau: 1.Hệ nhị phân (Binary System) Hệ nhị phân được nhà toán học cổ người Ấn Độ Pingala phác thảo từ thế kỷ thứ ba trước Công Nguyên. Trong thế kỷ 17, nhà triết học người Đức tên là Gottfried Leibniz đã ghi chép lại một cách trọn vẹn hệ thống nhị phân trong bài viết “Giải thích về toán thuật trong hệ…

Giải đề thi tin học trẻ Tp HCM 2018 Hàm PIXEL sẽ cho chúng ta biết ngay vị trí bút của rùa có màu gì, nguyên vòng lặp While Pixel… sẽ làm cho rùa đi tới vị trí các đường Ellipse…

Số hoàn hảo. Số hoàn thiện (hay còn gọi là số hoàn chỉnh, số hoàn hảo hoặc số hoàn thành) là một số nguyên dương mà tổng các ước nguyên dương của nó (số nguyên dương chia hết cho nó) bằng chính nó. Ví dụ: Số 6 có ước nhỏ hơn nó là 1,2,3. Tổng là 1+2+3=6 vậy 6 là số hh. Số 8 chia hết cho 1, 2, 4 tổng 1+2+4=7 → 8 không phải là số hh. Số 28 chia hết cho 1, 2,4, 7, 14 tổng 1+2+4+7+14=28 → 28 là số hh. Viết chương trình nhập vào một…

Đề thi tài năng trẻ tin học tỉnh Quảng Ngãi năm 2018 câu 3 Vẽ bàn cờ bằng cách khác: to banco repeat 4[repeat 2[cot rt 90 fd 60 rt 90 ]rt 90 fd 60 lt 90] end to cot repeat 4[haio] end to haio oden fd 30 otrang fd 30 end to oden repeat 4[fd 30 rt 90]rt 45 PU fd 30 fill bk 30 PD lt 45 end to otrang repeat 4[fd 30 rt 90] end Dưới đây là cách giải bằng Scratch, Vuông là thủ tục dùng để vẽ một hình vuông cạnh là n, cách giải…

Dãy số Fibonaci là dãy số mà F(1)=0, F(2)=1, F(n)=F(n-1)+F(n-2). Hãy viết chương trình in ra màn hình dãy số Fibonaci với n được nhập từ bàn phím. PROGRAM Fibonacci; Uses CRT; VAR First, Second, Temp : Longint; ix,n : integer; BEGIN Clrscr; Write(‘Nhap n = ‘); Readln(n); Writeln(‘Day so Fibonacci:’); First := 0; Second := 1; write(First:10); write(Second:10); for ix := 0 to n do begin Temp := FIrst + Second; First := Second; Second := Temp; write(Temp:10); end; Readln; END.

Đầu tiên chúng ta sẽ thiết kế 2 chương trình con là vuông và tròn. (Các bạn xem code ở cuối bài) Xem code trực tiếp – (có thể tải code về máy) https://scratch.mit.edu/projects/196371024/  Video hướng dẫn

Cho dãy số 3, 5, 8, 11, 15, 19 … hỏi số ở vị trí 2017 là số bao nhiêu? Bèo tấm là loại thực vật nổi trên mặt nước, có kích thước nhỏ, tốc độ sinh trưởng nhanh, với điều kiện thuận lợi trong 2 ngày số lượng bèo tấm sẽ tăng gấp đôi. Đặc biệt người ta thường dùng bèo tấm để xử lý môi trường nước trong các ao tù và hạn chế sự phát triển của muỗi. Người ta thả vào ao nước một gam bèo tấm trong điều kiện thuận lợi, hỏi sau 60 ngày trong…

Đề bài: Nhập vào 2 số m,n (n>n) cho biết số lần n xuất hiện trong m ví dụ 500 và 0 số lần xuất hiện của 0 là 2. Thủ tục STR(num,s) dùng đổi số thành chuỗi ký tự. (s là tham biến) Hàm Pos(s2,s1) tìm vị trí xuất hiện của s2 trong chuỗi s1 Thủ tục Delete(s,i,n) xóa chuỗi s từ vị trí thứ i trở đi n ký tự. (s là tham biến) Bài giải Program SLXH; Uses CRT; Var m,n:Longint; dem:byte; s1,s2:String; Begin Repeat Clrscr; Write(‘Nhap so thu nhat m ‘); Readln(m); Write(‘Nhap so thu hai…

Câu 1: Bài này đã có rất lâu trên website ở đây chúng tôi cung cấp cho các bạn code giải của Thầy Nguyễn Nguyễn (fb) các bạn tham khảo. To Hoasen2     CS     SetPC[255 0 255]     LT 125 Repeat 9[Repeat 2[Arc2 90 200 RT 90]RT 20] End Câu 2: Phần vẽ hình Phần nhập giá trị Phần chương trình chính Ở đây dùng một biết là thoat để kiểm tra xem có thể đi tiếp không. Chương trình sẽ kiểm tra xem ô đầu tiên có phải là ô màu ko, nếu không phải thì mới làm…

To Cau2 CS Repeat 6[Arc2 180 50 RT 360/3] LT 60 Circle2 100 PU RT 90 FD 100 SetFC 14 Fill PD HT End To Cau3 Cs Ht Repeat 5[ Repeat 5[FD 50 RT 360/5] Repeat 5[FD 25 LT 360/5] RT 180-72 FD 50 RT 36 FD 25 LT 180-108] End To Cau4 :n ;Truyền độ dài cạnh hình vuông ban đầu vào CS Make “s 0 PU FD :n/2 Make “m Distance (list :n/2 0) Home PD For[i 1 7 1][IfElse (modulo :i 2)=1 [ Make “s :s+:n*:n Repeat 4[Fd :n rt 90] Fd :n/2 rt 45 make “n…

A. Soạn thảo văn bản: khó hay dễ? Ngày nay chúng ta không thể tìm thấy một văn bản chính thức nào của nhà nước mà không được thực hiện trên máy tính. Công việc soạn thảo văn bản giờ đây đã trở nên quen thuộc với tất cả mọi người. Tuy nhiên không phải ai cũng nắm vững các nguyên tắc gõ văn bản cơ bản nhất mà chúng tôi sắp trình bày hôm nay. Bản thân tôi đã quan sát và nhận thấy rằng 90% sinh viên tốt nghiệp các trường đại học không nắm vững (thậm chí…