主题：几道踢，大家帮下忙好吗？
kh456
[专家分：0] 发布于 2008-07-25 12:30:00
题1：写一个程序,要求输入一个整数,当它为偶数时,输出TRUE,当它为奇数时,输出FALSE
题2：用勾股定理，已知a,b求c
题3：从键盘输入一个小写字母，打印对应的大写字母，其中A的ASCⅡ值为65，a的ASCⅡ值为97。
写完整的给我，谢谢大家
回复列表 （共3个回复）
沙发
worm. [专家分：180] 发布于 2008-10-16 23:21:00
新手呵
教科书上有的
加油吧......
板凳
PROGRAMQQ [专家分：0] 发布于 2008-10-17 20:52:00
1.
PROGRAM SUNNY;
VAR A:LONGINT;
BEGIN
READ(A);
IF A MOD 2=0 THEN WRITELN('TRUE')
ELSE WRITELN('FALSE');
END.
3 楼
pupu [专家分：50] 发布于 2008-10-24 18:45:00
1.
program fa;
var
a:integer;
begin
readln(a);
if odd(a)=true then writeln('true');
else wtiteln('false');
end.
2.program gf;
var
a,b:integer;
begin
readln(a,b);
writeln(sqrt(sqr(a)*sqr(b)));
end.
3.
program hg;
var
a:char;
begin
readln(a);
writeln(upsase(a));
end.
我来回复
您所在位置：