bài 36 với 39 mình gộp chung nhan

uses crt;

var n:longint;

begin

       clrscr;

      write('nhap N');

      readln(n);

     if n mod 2 = 0 then

    write('so chan')

    else 

    write('so le');

readln;

end.

bài 37 

var a:array[1..100] of longint;

       i,t:longint;

begin

            clrscr;

            write('nhap n:');

            readln(n);

           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

           t:=t+a[i];

          write(t);

readln;

end.

bài 40 nó giống bài 37 nhưng bạn sửa chỗ a[i] mod 2 = 0 thành a[i] mod 2 <>0 nhan

85 tháng

A nhan bạn

đây là khi bạn cho giá trị của s:=1 trước khi chạy chương trình đó

i sẽ chạy từ 1 tới 5 và s sẽ bắt đàu từ 1 và sẽ nhân lần lượt là 1*2=2

                                                                                                   2*3=6

                                                                                                   3*4=12

                                                                                                   4*5=120

vả nó lấy giá trị cuối cùng là 120

còn nếu bạn chưa có cho s:=1 thì câu lệnh nó sẽ không biết giá trị đầu tiên của s là bao nhiêu nên nó sẽ in ra số 0

 Sự phân bố dân cư châu Âu: không đồng đều

+, Mật độ trung bình 70 người /km2${}^2$

+, Nơi đông dân: ven biển Tây và Trùng Âu,Nam Âu ,đồng bằng và thung lũng

+, Nơi thưa dân : Phía Bắc và những vùng núi cao

 C nha