Объясните пожалуйста, что не так со мной или входящим потоком?
Код:
(* найти сумму всех положительных чисел из входящего потока*)
MODULE Ex;
IMPORT Log := StdLog, In := i21sysIn, Math;
PROCEDURE Pos*;
VAR k, sum:INTEGER;
BEGIN
In.Open; ASSERT (In.done);
sum:=0;
WHILE In.Done DO
In.Int(k);
IF k>0 THEN
INC( sum,k );
END;
END;
Log.Int(sum);
END Pos;
END Ex.
MODULE Ex;
IMPORT Log := StdLog, In := i21sysIn, Math;
PROCEDURE Pos*;
VAR k, sum:INTEGER;
BEGIN
In.Open; ASSERT (In.done);
sum:=0;
WHILE In.Done DO
In.Int(k);
IF k>0 THEN
INC( sum,k );
END;
END;
Log.Int(sum);
END Pos;
END Ex.
Сам входящий поток:
-2 2 2 -2 результат 4
-2 2 2 -2 2 результат 8
