- Các được xếp thành 4 hàng .

- Mỗi hàng có khoảng 10 chiếc thuyền.

- Đếm số theo các hàng (1 chục, 2 chục, 3 chục, 4 chục).

- Ước lượng: Có khoảng  40 chiếc thuyền.

Đếm từng chiếc thuyền ta thấy có 41 chiếc thuyền.

- Các ngôi sao được xếp thành 3 nhóm.

- Mỗi nhóm có khoảng 10 ngôi sao.

- Đếm số ngôi sao theo các nhóm (1 chục, 2 chục, 3 chục).

- Ước lượng: Có khoảng 30 ngôi sao.

Đếm từng ngôi sao ta thấy có 28 ngôi sao.

Ước lượng: Có khoảng 30 quả bóng.

Đếm: Có 27 quả bóng.

- Các quả bóng được xếp thành 3 hàng.

- Mỗi hàng có khoảng 10 quả bóng.

- Đếm số quả bóng theo các hàng (1 chục, 2 chục, 3 chục).

- Ước lượng: Có khoảng 30 quả bóng.

Đếm từng quả bóng ta thấy có 27 quả bóng.

- Các chiếc máy bay được xếp thành 5 hàng.

- Mỗi hàng có khoảng 10 chiếc máy bay.

- Đếm số chiếc máy bay theo các hàng (1 chục, 2 chục, 3 chục, 4 chục, 5 chục).

- Ước lượng: Có khoảng 50 chiếc máy bay.

Đếm từng chiếc ta thấy có 50 chiếc máy bay.

- Các quả bóng được xếp thành 6 nhóm.

- Mỗi nhóm có khoảng 10 quả bóng.

- Đếm số quả bóng theo các nhóm (1 chục, 2 chục, 3 chục, 4 chục, 5 chục, 6 chục).

- Ước lượng: Có khoảng 60 quả bóng.

Đếm từng quả bóng ta thấy có 61 quả bóng.

- Cách kiểm ta kết quả ước lượng thời gian đi bộ một vòng quanh lớp học là:

+ Bước 1: Bắt đầu bước đi dùng đồng hồ bấm giây.

+ Bước 2: Không nhìn đồng hồ, đếm thầm mỗi bước đi tính 1 giây, đếm cho đến khi nào đi được vòng quanh, lớp học, số bước chân chính là số giây đi được.

Sau đó, so sánh số giây đếm được với số giây hiện trên đồng hồ bấm giờ.

- Ví dụ:

+ Đi vòng quay lớp học đếm được 156 bước tương ứng với 156 giây.

+ Kiểm tra đồng hồ bấm giờ hiện 154 giây.

a) Các bạn ước lượng khá chính xác.

b)

c)

1.program insoam;
uses crt;
var a:array[1..50] of integer;
n,i:integer;
begin
clrscr;
write('nhap so phan tu: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']'); readln(a[i]);
end;
write('cac phan tu am la: ');
for i:=1 to n do
if a[i]<0 then write(a[i]);
readln
end.

program insoam;
uses crt;
var a:array[1..50] of integer;
n:integer;
begin
clrscr;
write('nhap so phan tu: ');readl)(n);
for i:=1 to n do
begin
write('a[',i,']'); readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then write(a[i]);
readln
​end.

4.program tonguoc;

ues crt;

var n,i,s:integer;

begin

clrscr;

write('nhap n: ');readln(n);

s:=0;

write('tong cac uoc cua ',n,' la :'):

for i:=1 to abs(n) do

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

write(s);

readln;

end.