【求助】求大神帮忙教两道题，不难！
pascal吧
全部回复
仅看楼主
level 7
🌸氵卢本伟 楼主
这两道题都是最多才到case语句的阶段，对一些大神来说应该很简单，求帮忙解答！
2015年10月19日 14点10分 1
level 7
🌸氵卢本伟 楼主
1，输入一个整数，打印出它是奇数还是偶数
2015年10月19日 14点10分 2
level 7
🌸氵卢本伟 楼主
2，从键盘上读入一个数x，判断它的正负。是正数，则输出“+x”，是负数，则输出“-x”。
2015年10月19日 14点10分 3
level 7
🌸氵卢本伟 楼主
只有两道题，求大神解答，写出程序！
2015年10月19日 14点10分 4
level 5
Aaaa💢
1：
var
a:integer;
begin
read(a);
if a mod 2=0 then write('ji shu')
else write('ou shu');
end.
2015年11月01日 13点11分 5
level 5
Aaaa💢
2:
var
a:integer;
begin
read(a);
if a>=0 then write('+x')
else write('-x');
end.
2015年11月01日 13点11分 6
level 9
风x千叶翔龙V
2:
var
a:integer;
begin
read(a);
if a>0 then write('+',a)
else then write(a);
end.
2015年11月04日 14点11分 7
level 10
glyxcc
if直接爆哪用case
2015年11月12日 18点11分 8
level 8
纯属水人
2:
var
a:integer;
begin
read(a);
if a>0 then write('+',a)
else then write(a);
end.
用不着case吧
2015年11月12日 22点11分 9
1