Chương trình

Kết quả

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.

Các câu trả lời đúng là:

1) Có thể mô tả một kịch bản dưới dạng các bước tuần tự của một thuật toán. Đó là mô tả một thuật toán có các bước được thực hiện tuần tự.

3) Các bước của thuật toán được mô tả như thế nào thì các lệnh của bước đó cũng phải kế tiếp tuần tự như vậy.

Câu 2 bị sai vì khi thay đổi thứ tự các bước của thuật toán ta có thể thu được kịch bản khác

Câu đúng: 1,3

b) 

uses crt;

var i,n:integer;

t:real;

begin

clrscr;

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

i:=1;

t:=0;

while i<=n do 

  begin

t:=t+1/(i*(i+3));

i:=i+1;

end;

writeln(t:4:2);

readln;

end.

c) Các bước để tạo thư mục Hoc tap trong ổ đĩa D là:

- Bước 1: Chọn ổ đĩa D: (Là nơi chứa thư mục Hoc Tap).

- Bước 2: Nháy chuột phải vào vùng trống của cửa sổ, nháy chọn New, chọn Folder.

- Bước 3: Gõ tên thư mục (Hoc Tap), rồi nhấn Enter.

Bước 1: s=0; i←0;

Bước 2: i←i+1;

s←s+i;

Bước 3: Nếu i<=10 thì quay lại bước 2

Bước 4: Xuất s

Bước 5: Kết thúc

Cách bố trí dụng cụ thí nghiệm: Bình chứa dùng để hứng nước từ bình tràn. Các bước tiến hành thí nghiệm:

- Thả chìm vật rắn vào bình tràn, lấy phần nước tràn ra từ bình chứa

- Đổ nước từ bình chứa vào bình chia độ để đo thể tích nước đó, cũng chính là thể tích vật rắn

choox nào trang bao nhiêu

Nước ở thể lỏng từ 1 dòng sông, ao hồ hay biển, hơi nước sẽ bay lên tạo thành mây và hơi nước tiếp bay lên, khi đó mây đã nặng trĩu sẽ tạo thành những giọt nước mưa rơi xuống ao hồ, sông hay biển .