Câu 7 :

For a := 1 to 9 do if a mod 3 = 0 then write(a,'  ');

=> a chạy từ 1 đến 9 :

=> 1   2   3  4  5  6  7  8  9 

=> a mod 3 = 0 thì in a ra màn hình => in các số chia hết cho 3 ra màn hình

=> 3   6   9

=> Đáp án D. 

Câu 8 :

=> div chia lấy nguyên, mod chia lấy dư

=> 10 div 3 + 9 mod 4

=> 3 + 1 = 4

=> Đáp án : B. 4

Câu 9 :

- True là đúng, False là sai

* Với x = 12

- 5 <= 12 => đúng

- 12 <= 11 => sai

- 12 <> 8 => đúng

=> Với and thì tất cả các điều kiện đều phải đúng, vì 12 <= 11 sai nên => False

* Với x = 8

- 5 <= 8 => đúng

- 8 <= 11 => đúng

- 8 <> 8 => sai

=> False

* Với x = 6

- 5 <= 6 => đúng

- 6 <= 11 => đúng

- 6 <> 8 => đúng

=> True

* Với x = 15 hoặc x = 20

- (5 <= 15) hoặc (5 <= 20) => đúng hoặc đúng => đúng

- (15 <= 11) hoặc (20 <= 11) => sai hoặc sai => sai

- (15 <> 8) hoặc (20 <> 8) => đúng hoặc đúng => đúng

=> False

=> Đáp án C

Câu 10 :

x = 10; y = 30 

- x + y ở trong ngoặc kép ' ' => in x + y ra màn hình

=> Đáp án : D

* *  ** *  ** *  ** *  ** *  ** *  ** *  ** *  ** *  ** *  ** *  ** *  *

Bài 1 :

uses crt;

var a : array[1..150] of integer;

      i, n, s, dem  : integer;

begin

clrscr;

write('nhap so phan tu co trong day :');readln(n);

dem := 0;

s := 0;

for i := 1 to n do

begin

write('nhap phan tu thu ', i ,' : ');readln(a[i]);

if (a[i] < 0) and (a[i] mod 2 = 0) then

begin

dem := dem + 1;

s := s + a[i];

end;

end;

writeln('so luong so am chan la :', dem);

writeln('tong cac so am chan la :', s);

readln

end.

Bài 2 :

uses crt;

var t : array[1..100] of integer;

      a, i, s : integer;

begin

clrscr;

write('nhap so nguoi xep thanh hang :');readln(n);

write('nhap vi tri nguoi muon tim thoi gian phuc vu :');readln(i);

for a := 1 to n do

begin

write('nhap thoi gian phuc vu nguoi ', a ,' :');readln(t[a]);

end;

for a := 1 to i - 1 do

s := s + t[a] ;

writeln('thoi gian ma nguoi thu ', i ,' phai cho la :', s);

readln

end.

7.D

8.B

9.A 

10.D (câu này đừng để bị lừa nha, có 2 dấu nháy)

II. tự luận

1)

uses crt;

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

i,n,s,d: longint;

begin

clrscr;

write ('nhap so luong phan tu: ');   readln (n);

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');   readln (a[i]);

if (a[i]<0) and (a[i] mod 2=0) then

begin

s:=s+a[i];

inc(d);

end;

end;

writeln ('trong day co ',d,' so am chan');

writeln ('tong cac so am chan la: ',s):

readln;

end.

2)

uses crt;

var t: array[1..100] of integer;

i,n,s,k: longint;

begin

clrscr;

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

write ('nhap thu tu cua nguoi can tinh: ');

for i:=1 to n do

begin

write ('nhap T[',i,']: ');   readln (t[i]);

end;

for i:=1 to k do

s:=s+t[i];

writeln ('nguoi thu ',k,' can cho: ',s,' phut');

readln;

end.