Bài 6 trang 79 sgk Tin học 11

Giải bài tập Tin học 11 trang 79,80

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:

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.

Giải bài tập Tin học 11 | Để học tốt Tin học 11

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:

Trang trước

Trang sau

giai-bai-tap-tin-hoc-11-trang-79-80.jsp

Giải bài tập lớp 11 sách mới các môn học