K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

a) xác định

input: x

output: x là chẵn hay lẻ

b) 

B1: nhập x

B2: Nếu x chia hết cho 2 thì x là số chẵn, không chia hết thì là số chẵn

B3: trả lời số x là số chẵn hay là số lẻ

B4: kết thúc thuật toán.

c)

var

x:integer;

begin

write("nhập x=");

readln(x);

if x mod 2=0 then writeln(x," là số chẵn")

else

writeln(x," là số lẻ");

readln;

end.