Con Mèo Đông Lạnh

Bullet Journal cho tháng tư nào!!! Tháng tư mình dùng màu tím số 84 của Kuelox và combo màu nước Thiên Long tím cộng waterbrush để tô màu. Kì thi học kì II sắp càn quét nên mình có thêm mục mới là mục số 6 cho các bạn như mình nè. 1. Monthly log: Mình thay đổi layout của tháng này một chút (again ) . Layout thì vẫn giống tháng ba nhưng thay vì để ngang thì mình vẽ layout đứng để có nhiều dòng có thể viết hơn. Tháng tư bị lẻ ngày 30 ý nên mình để chung với ngày 1 cho tiện. Tháng này màu mè hơn mấy tháng trước nhỉ vì mình vừa thi giữa kì xong nên tuần này có nhiều thời gian chứ tuần sau là bắt đầu ôn thi cuối kì rồi. À cách vẽ mấy cái bông cũng đơn giản lắm mình để hướng dẫn ở mục Brain dump nhé. 2. Tracker: Mình thề mình thích trang trí Tracker của tháng này cực. Tháng này mình không làm Mood tracker nữa vì sau 3 tháng sử dụng mình thấy nó hơi vô dụng với mình. Thế nên thay vì Mood tracker mình thêm mục Blog để theo dõi lượng người xem blog cho nó có cái gọi là động l

Đề: Nhập mảng một chiều các số nguyên (không quá 100 phần tử); - Nhập một số nguyên K từ bàn phím; - Đếm xem trong mảng vừa nhập có bao nhiêu phần tử có giá trị chia hết cho K và tính tổng các phần tử đó; - Xuất kết quả ra màn hình gồm: các phần tử chia hết cho K, số lượng phần tử chia hết cho K và tổng của nó. Bài làm: program uses  crt; var A: array[1..100] of integer;       N,k,i,S,dem: integer; begin           clrscr;           write('Nhap so luong phan tu cua day so nguyen: ');           readln(N);           write('Nhap so nguyen k: ');           readln(k);           dem:=0;           S:=0;           for i:=1 to N do           begin                     write('Nhap gia tri cho phan tu thu ',i,': ');                     readln(A[i]);                     if A[i] mod k=0 then dem:=dem + 1;                     if A[i] mod k=0 then S:=S + A[i];           end;           write('Cac so nguyen chia het cho k la: ')      

ĐỀ BÀI : Viết chương trình nhập một mảng các số nguyên, sau đó xuất ra tổng và tích của tất cả các số trong mảng trên. GỢI Ý: Input: các số nguyên. Output: tổng và tích. BÀI LÀM: program uses crt; var    dayso: array [1..100] of integer;          tong, tich, i, N: integer; begin         clrscr;         writeln('Nhap so luong phan tu cua day so nguyen:')         readln(N);         for i:=1 to N do         begin                  writeln('Nhap gia tri cho so thu ',i,' :');                  readln(day so[i]);         end;         tong:= 0;         tich:= 1;         for i:=1 to N do         begin                  tong:= tong + dayso[i];                  tich:= tich * 1;         end;         writeln('Tong la: ',tong);         writeln('Tich la: ',tich);         readln end.