Nguyễn Phát's Profile

câu c đúng

Câu d

3 vòng lặp

s=9

nháy đúp vào biểu tượng turbo pascal trên màn hình chính

uses crt;

var a:inetger;

begin

clrscr;

write('Nhap so nguyen a:');

readln(a);

if a mod 2=0 then 

write(a ,'la so chan')

else write(a ,'la so le');

readln

end.

uses crt;

var a:inetger;

begin

clrscr;

write('Nhap so nguyen a:');

readln(a);

if a mod 2=0 then 

write(a ,'la so chan')

else write(a ,'la so le');

readln

end.

thay đổi ở trên phần khai báo biến 

tắt chương trình pascal đi là được

b