我有一个最简单的问题，请大家不要笑我呀

您所在位置：社区首页 — PASCAL语言讨论区 — 我有一个最简单的问题，请大家不要笑我呀

回帖发新帖刷新版面

主题：我有一个最简单的问题，请大家不要笑我呀

taofei [专家分：30] 发布于 2005-06-27 18:44:00

1。输入一个数
输出“这个数是奇数”或“这个数是偶数”

是不是用mod求余呀？

2。求出答案1+2+3+4……+100

这个我也不会呀

大家能不能帮帮忙呀

本帖地址： http://bbs.pfan.cn/post/87100.html

回复列表（共21个回复）

沙发

zhsas [专家分：1680] 发布于 2005-06-27 21:19: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.

板凳

zhsas [专家分：1680] 发布于 2005-06-27 21:24:00

program zhs (input,output);
  var
    i,s:integer;
  begin
    s:=0;
    for i:=1 to 100 do
      s:=s+i;
    writeln('s=',s)
  end.

3 楼

灵慕 [专家分：0] 发布于 2005-06-27 21:29:00

你来尼度侮辱我才智呀？
学多几年先啦！

4 楼

zhsas [专家分：1680] 发布于 2005-06-27 22:06:00

三楼的不要这样说.
他是一个刚刚开始自学的.没有老师教,只能靠自己看书.
如果你和他在同一起跑线的话................................................

5 楼

lxlysl [专家分：70] 发布于 2005-06-27 22:25:00

好！有胆量，不懂就问！世界上的难题多着呢！大家多多合作！

6 楼

口口and枕头 [专家分：1550] 发布于 2005-06-29 15:07:00

我们应该支持楼主!不懂就问~这很好~
自学时会遇到一些想不通,但学会后再看其实很简单东西.
加油~@!@!@!~!~#~@@!@~!#!@#@#~

7 楼

taofei [专家分：30] 发布于 2005-07-01 20:29:00

D:俺会加油的，谢谢你们对我的支持

8 楼

taofei [专家分：30] 发布于 2005-07-01 20:30:00

加我的Q吧，我很想和大家成为好朋友

9 楼

xiaokang [专家分：50] 发布于 2005-07-14 12:31:00

第二个：
program l;
var i,s:integer;
begin
  s:=0;
  for i:=1 to 100 do
   begin
     s:=s+1;
   end;
  writeln(s);
end.

10 楼

xiaokang [专家分：50] 发布于 2005-07-14 18:01:00

发错了，重发：
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.

我来回复

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

主题：我有一个最简单的问题，请大家不要笑我呀

回复列表（共21个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：我有一个最简单的问题，请大家不要笑我呀

回复列表 （共21个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共21个回复）