主题：我有一个最简单的问题，请大家不要笑我呀
taofei
[专家分：30] 发布于 2005-06-27 18:44:00
1。输入一个数
输出“这个数是奇数”或“这个数是偶数”
是不是用mod求余呀？
2。求出答案1+2+3+4……+100
这个我也不会呀
大家能不能帮帮忙呀
回复列表 （共21个回复）
11 楼
cxxx401 [专家分：140] 发布于 2005-07-14 20:04:00
啊哈哈,我们都是初学者
让我们一起来吧.
12 楼
口口and枕头 [专家分：1550] 发布于 2005-07-15 16:02:00
才来的人都这么热情.过两天就不开腔了~~
13 楼
74zzz [专家分：80] 发布于 2005-07-22 16:40:00
多上网找些资料 论坛很慢的
14 楼
天水 [专家分：320] 发布于 2005-07-22 18:05:00
精神可 加 共同进步吧 (我也不懂呵呵):D[em4]
15 楼
天水 [专家分：320] 发布于 2005-07-22 18:07:00
精神可 加 一起进步吧 (我也不懂):)
16 楼
口口and枕头 [专家分：1550] 发布于 2005-07-22 23:16:00
不懂就问~
论坛也不慢~~~
但看论坛之前必须自己先学习,不能靠别人.
别人给你说,你什么都不懂,还要别人一点点解释,那恐怕没有多少人有耐性给你解释完的....(zhsas除外~~)
17 楼
sd5774188 [专家分：260] 发布于 2005-07-25 21:52:00
楼上的，你程序中b与i的值是一样的……这样好点：
program l;
var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
s:=s+i;
writeln(s);
end.
18 楼
1sasa [专家分：0] 发布于 2005-07-26 13:44:00
我们应该支持楼主!不懂就问~这很好~
自学时会遇到一些想不通,但学会后再看其实很简单东西.
加油~@!@!@!~!~#~@@!@~!#!@#@#~
第一题：
program zhs (input,output);
var
num:integer;
begin
write('Please input num:');
read(num);
write('num=',num,'':10);
if odd(num)
then writeln('This is odd.')
else writeln('This is even.')
end.
第二题：program j;
var i,s,b:integer;
begin
s:=0;
b:=0;
for i:=1 to 100 do
begin
b:=b+1;
s:=s+b;
end;
writeln(s);
end.
19 楼
口口and枕头 [专家分：1550] 发布于 2005-07-26 17:40:00
18楼的同学~~
怎么你说的话这么眼熟呀~~~
好像在哪儿看过`~~~~
sd5774188同学别老是楼上的楼上的,楼上还有很多人呢~~
你能说清楚是几楼的好吗?
20 楼
delphi6 [专家分：3450] 发布于 2005-07-26 19:55:00
[img]http://bbs.cqreview.com/UploadFile/2005-7/2005712154831382.gif[/img]
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 我有一个最简单的问题，请大家不要笑我呀