4*5=20 dễ

có 31 hình vuông

Có 5 hình vuông và 4 hình chữ nhật.

Hình trên có 5 hình vuông, 4 hình chữ nhật 

Ở đây có 6 hình thang cân và 2 hình lục giác đều

21 hình tam giác

23

cần gấp ák :(

ý b nhé

ht

D

D nhé bạn

var i,j,n,d,sl:integer;

begin

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

for i:=1 to n do

begin

sl:=0;

for j:=1 to i do

if i mod j = 0 then

begin

d:=d+1;

if d=2 then sl:=sl+1;

end;

end;

write('Co ',sl,' so nguyen to <= ',n);

readln

end.

program DemSoNguyenTo;
var
  n, i, j, count: integer;
  isPrime: boolean;
begin
  write('Nhap so nguyen duong n: ');
  readln(n); // Nhập số nguyên dương n từ bàn phím
  writeln('Cac so nguyen to <= ', n, ' la: ');

  count := 0; // Khởi tạo biến đếm số lượng số nguyên tố
  for i := 2 to n do // Duyệt qua các số từ 2 đến n
  begin
    isPrime := true; // Giả sử số hiện tại đang xét là số nguyên tố

    // Duyệt qua các ước của số hiện tại để kiểm tra số nguyên tố
    for j := 2 to round(sqrt(i)) do
    begin
      if i mod j = 0 then
      begin
        isPrime := false; // Nếu có ước thì không phải là số nguyên tố
        break;
      end;
    end;

    if isPrime then // Nếu số hiện tại là số nguyên tố
    begin
      writeln(i); // In ra số nguyên tố đó
      count := count + 1; // Tăng biến đếm số lượng số nguyên tố lên 1
    end;
  end;

  writeln('Tong so nguyen to <= ', n, ' la: ', count);
end.