Viết chương trình nhập từ bàn phím số nguyên dương N (N
|
a) Duyệt toàn bộ mảng ,nếu số nào chia hết cho 2 thì là số chẵn còn lại là số lẻ. Ta dùng một biến để đếm số chẵn . Sau đó lấy số phần tử trừ đi số phần tử chẵn. program csc;uses crt;var a:array[1..100] of integer; i,d,n:integer;begin clrscr; write('nhap so phan tu cua day '); readln(n); d:=0; for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; for i:=1 to n do if a[i] mod 2=0 then d:=d+1; writeln('so so chan la ',d,' so so le la ',n-d); readkey;end. b) Số lượng số nguyên tố trong dãy Duyệt toàn bộ các số trong dãy với mỗi số ta kiểm tra xem số này có chia hết số nào từ 2 đến a[i]-1 của nó không ?. Nếu không thì kết luận là số nguyên tố. program csc;uses crt;var a:array[1..100] of integer; i,d,n,j:integer; t:boolean;begin clrscr; write('nhap so phan tu cua day '); readln(n); d:=0; for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; for i:=1 to n do begin t:=true; for j:=2 to a[i]-1 do begin if (a[i] mod j=0) and (a[i]<>2) then begin t:=false; break; end; end; if t=true then d:=d+1; end; writeln('so cac so nguyen to trong day la ',d); readkey;end. Kết quả:  Nếu dãy chỉ có một số hoặc hai số thì chắc chắn là cấp số cộng. Nếu dãy có hơn hai số thì tính công sai là a[1]-a[0] sau đó duyệt cả mảng nếu có số nào vi phạm quy luật của cấp số cộng a[i] khác a[i-1]+d thì kết luận luôn không là cấp số cộng. Nếu đến cuối dãy mà không có số nào vi phạm thì kết luận là cấp số cộng. program csc;uses crt;var a:array[1..100] of integer; i,n,d:integer; t:boolean;begin clrscr; write('nhap so phan tu cua day '); readln(n); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; if n<=2 then write('la cap so cong ') else begin d:=a[2]-a[1]; t:=true; for i:=3 to n do if a[i]<>a[i-1]+d then begin t:=false; break; end; if t then write('la cap so cong') else write('khong phai cap so cong '); end; readkey;end. Kết quả: Trường hợp là cấp số cộng: Trường hợp không là cấp số cộng:
Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat. 2 trả lời Rùa đi lùi: BK; LT; RD; RT; CS; CT (Tin học - Lớp 4) 1 trả lời Xác định đầu ra và đầu vào của thuật toán (Tin học - Lớp 6) 1 trả lời Nêu 1 ví dụ của khai báo biến mảng (Tin học - Lớp 8) 1 trả lời Phần mềm soạn thảo tên là gì (Tin học - Lớp 3) 4 trả lời
Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy A gồm N số nguyên A1, A2, …AN. Tìm và in ra số nhỏ nhất của dãy số vừa nhập? Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình. Input: Số nguyên dương N và dãy số A gồm N số nguyên dương a1, a2, …, an. Output: In ra Phần tử nhỏ nhất của dãy số đó. Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình. Các câu hỏi tương tự
Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy A gồm N số nguyên , A1, A2,...,An a) Đếm số hợp số chẵn và số lẻ b) Tính tổng các số chẵn c) đếm số lượng nguyên tố trong dãy Các câu hỏi tương tự |
