Question

pascal题目解答

判断奇偶数
【试题描述】

输入一个整数，判断是否为偶数。是输出"y e s"，否则输出"n o"。

【输入描述】

输入只有一行，包括1个整数。

【输出描述】

输出只有一行。

【输入样例】

2

【输出样例】

y e s

【解题提示】

要注意空格！！！！！！！！

Answer 1

OK

var a:longint;
begin
read(a);
if a mod 2=0 then
writeln('y e s')
else
writeln('n o')
end.

Answer 2

program asdf;
var a:longint;
begin
readln(a);
if (a mod 2)=0 then writeln('y e s')
else writeln('n o');
end.

Answer 3

var a:longint;
begin
readln(a);if a mod 2=0 then writeln('y e s') else writeln('n o');
end.