free pascal 简单问题
15. 输入10个整数,统计其中偶数的个数。
16. 输入一系列的数,用0作为输入结束标志,统计其中正数的个数。
我刚参加信息竞赛,想请教各位大虾信息学的要点>拜托!
参考答案:PROGRAM FIFTEEN;
VAR I,J,K:INTEGER;
BEGIN
K:=0;
FOR I:=1 TO 10 DO
BEGIN
READLN(J);
IF NOT(ODD(J)) THEN INC(K);
END;
WRITELN(K);
END.
PROGRAM SIXTEEN;
VAR I,J:REAL;
BEGIN
READLN(I); J:=0;
IF I >0 THEN INC(J);
WHILE I<>0 DO
BEGIN
READLN(I);
IF I>0 THEN INC(J);
END;
WRITELN(J);
END.
参考资料:答对了请选为答案