fork download
copy 
  1. PROGRAM TEST (INPUT, OUTPUT);
  2. VAR
  3. 	S, I, N : INTEGER;
  4. BEGIN
  5.    WRITE('WRITE N:  ');
  6.    READLN (N);
  7.    S :=0;
  8.    FOR I :=1 TO N DO
  9.    BEGIN
  10. 	  IF I MOD 2 = 0 THEN
  11. 		BEGIN
  12. 		   S :=S+I;
  13. 		   WRITELN('CURRENT VALUE I=',I,' S=',S);
  14. 		END;
  15. 	END;
  16. 	WRITELN('FINAL RESULT SUMA S=',S)
  17. END.
Success #stdin #stdout 0.01s 5304KB
comments (?)
stdin
copy 
9
stdout
copy 
WRITE N:  CURRENT VALUE I=2 S=2
CURRENT VALUE I=4 S=6
CURRENT VALUE I=6 S=12
CURRENT VALUE I=8 S=20
FINAL RESULT SUMA S=20
https://ideone.com/hKIsBK
language:
Pascal (fpc 3.0.4)
created:
34 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!