P/s: ở đây mình chỉ viết chương trình thôi, còn thuật toán bạn có thể suy ra từ chương trình nhé:

Câu 2: 

uses crt;

var n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  if n mod i=0 then write(i:4);

readln;

end.

Câu 3: 

uses crt;

var n,i,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

dem:=0;

for i:=1 to n do 

  if n mod i=0 then dem:=dem+1;

writeln('So uoc cua ',n,' la: ',dem);

readln;

end.

Câu 4: 

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  if n mod i=0 then t:=t+i;

writeln('Tong cac uoc cua ',n,' la: ',t);

readln;

end.

Câu 5: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=1;

for i:=1 to n do 

  if n mod i=0 then s:=s*i;

writeln('Tich cac uoc cua ',n,' la: ',s:4:2);

readln;

end.

Câu 6: 

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan trong khoang tu 1 den ',n,' la: ',t);

readln;

end.

Câu 8: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.

3

Đáp án D

Phương pháp:

TH1: An và Cường trả lời đúng, Bình trả lời sai.

TH2: Bình và Cường trả lời đúng, An trả lời sai.

Áp dụng quy tắc cộng.

Cách giải:

TH1: An và Cường trả lời đúng, Bình trả lời sai => P₁ = 0,9.(1 - 0,7).0,8 = 0,216

TH2: Bình và Cường trả lời đúng, An trả lời sai => P₂ = (1 - 0,9).0,7.0,8 = 0,056

Vậy xác suất cô giáo chỉ kiểm tra bài cũ đúng 3 bạn trên là P = P₁ + P₂ = 0,272

Đáp án D

Phương pháp:

TH1: An và Cường trả lời đúng, Bình trả lời sai.

TH2: Bình và Cường trả lời đúng, An trả lời sai.

Áp dụng quy tắc cộng.

Cách giải:

TH1: An và Cường trả lời đúng, Bình trả lời sai

   ⇒ P 1 = 0 , 9. 1 − 0 , 7 .0 , 8 = 0 , 216

TH2: Bình và Cường trả lời đúng, An trả lời sai

⇒ P 2 = 1 − 0 , 9 .0 , 7.0 , 8 = 0 , 056

Vậy xác suất cô giáo chỉ kiểm tra bài cũ đúng

 3 bạn trên là P = P 1 + P 2 = 0 , 272  

B

b

B

* Tham khảo :

Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối.

Chọn ngày kiểm tra môn toán: 6 cách, chọn ngày kiểm tra môn văn: 5 cách, chọn ngày kiểm tra môn anh: 4 cách

\(\Rightarrow\) Không gian mẫu: \(6.5.4=120\) cách

Nếu toán kiểm tra vào thứ 4 => 2 môn còn lại chỉ có 3 ngày thứ 5, thứ 6, thứ 7 để kiểm tra nên ko thể xếp sao cho 2 môn này cách nhau ít nhất 1 ngày (loại)

\(\Rightarrow\) Toán chỉ có thể kiểm tra vào thứ 2 hoặc 3

TH1: toán kiểm tra vào thứ Hai: 2 môn còn lại có 3 cách xếp là 46,47,57. Hoán vị 2 môn này có 2 cách \(\Rightarrow2.3=6\)

TH2: toán kiểm tra vào thứ Ba: 2 môn còn lại chỉ có 1 cách là 57, hoán vị 2 môn này có 2 cách

Tổng cộng: \(6+2=8\) cách

Xác suất: \(P=\dfrac{8}{120}\)

Input: số nguyên N

Output: N là chẵn hoặc N là lẻ

- Thuật toán liệt kê:

+ Bước 1: Nhập N

+ Bước 2: Nếu N chia hết cho 2 thì in ra N chẵn và kết thúc thuật toán ngược lại nếu N không chia hết cho 2 thì in ra N lẻ và kết thúc thuật toán

- Thuật toán sơ đồ khối:

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b=');c readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then 

begin

kt:=0;

if sqr(a)=sqr(b)+sqr(c) then kt:=1;

if sqr(b)=sqr(a)+sqr(c) then kt:=1;

if sqr(c)=sqr(a)+sqr(b) then kt:=1;

if kt=0 then writeln('Day khong la tam giac vuong')

else begin

              writeln('Day la ba canh trong mot tam giac vuong');

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac vuong la: ',s:4:2);

end;

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.