pascal - 奇偶数和

Question

我需要计算奇数/偶数和，这是我到目前为止所得到的:

PROGRAM EvenOddSum;
USES
  WinCrt;
VAR
  odd, even, x: INTEGER;

  BEGIN

  WriteLn('Calculation of sum');
  WriteLn;
  odd := 0;
  even := 0;
  Write('Enter value(s)');
  WHILE x > 0 DO BEGIN
   IF x mod 2:= 0 THEN BEGIN
     even := even + x;
   ELSE
     odd := odd + x;

  ReadLn(x);
  END;
  WriteLn;
  WriteLn('Even sum is = ', even);
  WriteLn('Odd sum is =', odd);
  END.

我使用 freepascal.org 编译器，但出现此错误:

SYNTAX error THEN expected but := found

而且我看不出这段代码有什么问题。

Answer 1

在 Pascal 中，:= 是赋值运算符。在读取 IF x mod 2:= 0 THEN BEGIN 的行中将其替换为 =。

此外，删除 BEGIN。结果应为:

IF x mod 2 = 0 THEN