教教我 — 编程爱好者社区

沙发

MK [专家分：110] 发布于 2005-03-16 20:09:00

var a:integer;
    b:boolean;
begin
  readln(a);
  b:=odd(a);
  writeln(b);
end.

板凳

MK [专家分：110] 发布于 2005-03-16 20:13:00

[font=~{KNLe~}]~{Hg9{=a9{N*Uf#,TrN*FfJ}#,<YN*E<J}!#~}[/font]

3 楼

tanchenggang [专家分：0] 发布于 2005-03-19 20:12:00

定义一个整型，然后在定义一个布尔型，如果输入的数字与2同余0，则输出偶数；反之则输出奇数~
我觉得思路是对的，重点是你要会写~[em3]

4 楼

xsbccf [专家分：20] 发布于 2005-03-20 07:18:00

var a:integer;b:bool;
begin
if (a mod 2)=0 then writeln('a为偶数')
else writeln('a为奇数');
end.

5 楼

泡泡糖 [专家分：230] 发布于 2005-05-07 08:08:00

用odd 函数就行了

6 楼

47 [专家分：590] 发布于 2005-05-07 10:22:00

顶！
odd就是判断几偶的函数啊

7 楼

woohaha [专家分：120] 发布于 2005-05-07 11:47:00

var a:integer;
begin
readln(a);
writeln(odd(a));
end.

输出"ture"的话就是奇数
"false"就是偶数

8 楼

大蟹 [专家分：50] 发布于 2005-05-08 16:26:00

直接用odd()函数就可以

您尚未登录，请登录后再回复。点此登录或注册

主题：教教我