Viết chương trình nhập vào một dãy số đưa ra màn hình số luong các số chẵn
|
Top 1 ✅ Nhập dãy a gồm n số nguyên. đưa ra màn hình đếm số chẵn, số lẽ trong dãy A nam 2022 được cập nhật mới nhất lúc 2022-03-11 17:57:39 cùng với các chủ đề liên quan khác Show
nhập dãy a gồm n số nguyên．đưa ra màn hình đếm số chẵn， số lẽ trong dãy AHỏi: nhập dãy a gồm n số nguyên．đưa ra màn hình đếm số chẵn， số lẽ trong dãy Anhập dãy a gồm n số nguyên．đưa ra màn hình đếm số chẵn， số lẽ trong dãy A Đáp: thaophuobg:program dem_so; uses crt; var A:array[1..1000] of integer; n，i，dc，dl:integer; begin clrscr; write(‘Nhap n: ‘); readln(n); dc:=0; dl:=0; for i:=1 to n do begin write(‘A[‘，i，’]= ‘); readln(A[i]); if A[i] mod 2=0 then dc:=dc+1 else dl:=dl+1; end; writeln(‘Co ‘，dc，’ so chan’); writeln(‘Co ‘，dl，’ so le’); readln; end. thaophuobg:program dem_so; uses crt; var A:array[1..1000] of integer; n，i，dc，dl:integer; begin clrscr; write(‘Nhap n: ‘); readln(n); dc:=0; dl:=0; for i:=1 to n do begin write(‘A[‘，i，’]= ‘); readln(A[i]); if A[i] mod 2=0 then dc:=dc+1 else dl:=dl+1; end; writeln(‘Co ‘，dc，’ so chan’); writeln(‘Co ‘，dl，’ so le’); readln; end. thaophuobg:program dem_so; uses crt; var A:array[1..1000] of integer; n，i，dc，dl:integer; begin clrscr; write(‘Nhap n: ‘); readln(n); dc:=0; dl:=0; for i:=1 to n do begin write(‘A[‘，i，’]= ‘); readln(A[i]); if A[i] mod 2=0 then dc:=dc+1 else dl:=dl+1; end; writeln(‘Co ‘，dc，’ so chan’); writeln(‘Co ‘，dl，’ so le’); readln; end. nhập dãy a gồm n số nguyên．đưa ra màn hình đếm số chẵn， số lẽ trong dãy AXem thêm : ... Vừa rồi, seonhé.vn đã gửi tới các bạn chi tiết về chủ đề Nhập dãy a gồm n số nguyên. đưa ra màn hình đếm số chẵn, số lẽ trong dãy A nam 2022 ❤️️, hi vọng với thông tin hữu ích mà bài viết "Nhập dãy a gồm n số nguyên. đưa ra màn hình đếm số chẵn, số lẽ trong dãy A nam 2022" mang lại sẽ giúp các bạn trẻ quan tâm hơn về Nhập dãy a gồm n số nguyên. đưa ra màn hình đếm số chẵn, số lẽ trong dãy A nam 2022 [ ❤️️❤️️ ] hiện nay. Hãy cùng seonhé.vn phát triển thêm nhiều bài viết hay về Nhập dãy a gồm n số nguyên. đưa ra màn hình đếm số chẵn, số lẽ trong dãy A nam 2022 bạn nhé.
Bài 6 (trang 79 sgk Tin học lớp 11): 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 có giá trị tuyệt đối không lớn hơn 1000. Hãy đưa ra những thông tin sau: Quảng cáo a) Số lượng số chẵn và số lượng số lẻ b) số lượng số nguyên tố trong dãy Trả lời: 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.Quảng cáo 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ả:Các bài giải bài tập và trả lời câu hỏi Tin học 11 Chương 4 khác:
Giới thiệu kênh Youtube VietJack
Đã có app VietJack trên điện thoại, giải bài tập SGK, SBT Soạn văn, Văn mẫu, Thi online, Bài giảng....miễn phí. Tải ngay ứng dụng trên Android và iOS.
Nhóm học tập facebook miễn phí cho teen 2k5: fb.com/groups/hoctap2k5/ Theo dõi chúng tôi miễn phí trên mạng xã hội facebook và youtube:Nếu thấy hay, hãy động viên và chia sẻ nhé! Các bình luận không phù hợp với nội quy bình luận trang web sẽ bị cấm bình luận vĩnh viễn. giai-bai-tap-tin-hoc-11-trang-79-80.jsp [B][COLOR="Blue"] var a: array [1..1000] of integer; i, n, tong: integer; begin clrscr; write ('Nhap so luong phan tu: '); readln (n); for i:= 1 to n do begin write ('Nhap phan tu thu ',i,': '); readln (a[i]); if a[i] mod 2 = 0 then tong:=tong+a[i]; end; write ('Cac so chan trong day: '); for i:= 1 to n do if a[i] mod 2 = 0 then write (a[i],' '); writeln; write ('Tong cac so chan la ',tong); readln end. Cho mình vote 5 sao và câu trl hay nhất nhé, Thanks An toàn không? Giải thích lí do (Tin học - Lớp 6) 1 trả lời Chọn phát biểu đúng (Tin học - Lớp 8) 2 trả lời Biểu tượng của phần mềm soạn thảo là? (Tin học - Lớp 6) 1 trả lời Viết cú pháp của câu lệnh lặp While...do (Tin học - Lớp 8) 1 trả lời |
