奇数偶数和

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