A. if a > 8 then a := 8;

⇒ Giá trị a bằng 8

uses crt;

var a : integer;

begin

clrscr;

a := 10;

if a > 8 then a := 8;

write('Gia tri cua a = ', a);

readln;

end.

B. if a < 5 then a := 5;

⇒ Giá trị a bằng 10

uses crt;

var a : integer;

begin

clrscr;

a := 10;

if a < 5 then a := 5;

write('Gia tri cua a = ', a);

readln;

end.

C. if a < 7 then a := 7 else a := 13;

⇒ Giá trị a bằng 13

uses crt;

var a : integer;

begin

clrscr;

a := 10;

if a < 7 then a := 7 else a := 13;

write('Gia tri cua a = ', a);

readln;

end.

D. if a mod 2 = 0 then a := 6;

⇒ Giá trị a bằng 6

uses crt;

var a : integer;

begin

clrscr;

a := 10;

if a mod 2 = 0 then a := 6;

write('Gia tri cua a = ', a);

readln;

end.

đây nha, chúc bạn học tốt!

A. if a>8 then a:=8;

(vì a lúc đầu mang giá trị là 10 ⇒ điều kiện đúng ⇒ câu lệnh a:=8 được thục hiện)

⇒ sau câu lệnh, a mang giá trị là 8

* chương trình:

uses crt;

var a: integer;

begin

clrscr;

a:=10;

if a>8 then a:=8;

write(a);

readln;

end.

B. if a<5 then a:=5;

(vì a lúc đầu mang giá trị là 10 ⇒ điều kiện sai ⇒ câu lệnh a:=5 không được thục hiện)

⇒ sau câu lệnh, a mang giá trị là 10

* chương trình:

uses crt;

var a: integer;

begin

clrscr;

a:=10;

if a<5 then a:=5;

write(a);

readln;

end.

C. if a<7 then a:=7 else a:=13;

(vì a lúc đầu mang giá trị là 10 ⇒ điều kiện sai ⇒ câu lệnh a:=13 được thục hiện)

⇒ sau câu lệnh, a mang giá trị là 13

* chương trình:

uses crt;

var a: integer;

begin

clrscr;

a:=10;

if a<7 then a:=7 else a:=13;

write(a);

readln;

end.

D. if a mod 2 = 0 then a:=6;

(vì a lúc đầu mang giá trị là 10 ⇒ điều kiện đúng (10 chia 2 dư 0) ⇒ câu lệnh a:=6 được thục hiện)

* chương trình:

uses crt;

var a: integer;

begin

clrscr;

a:=10;

if a mod 2 = 0 then a:=6;

write(a);

readln;

end.