fork download
copy 
  1. PROGRAM TEST (INPUT, OUTPUT) ;
  2. VAR
  3.    S, I, N: INTEGER;
  4. BEGIN
  5.    WRITELN ('ВВЕДІТЬ 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+1;
  13.           WRITELN (' ПОТОЧНЕ ЗНАЧЕННЯ I=', I, ' S=', S) ;
  14.        END;
  15.    END;
  16.    WRITELN ('ФІНАЛЬНИЙ РЕЗУЛЬТАТ СУМА S=', S)
  17. END.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
6
stdout
copy 
ВВЕДІТЬ N: 
 ПОТОЧНЕ ЗНАЧЕННЯ I=2 S=1
 ПОТОЧНЕ ЗНАЧЕННЯ I=4 S=2
 ПОТОЧНЕ ЗНАЧЕННЯ I=6 S=3
ФІНАЛЬНИЙ РЕЗУЛЬТАТ СУМА S=3
https://ideone.com/VsDy65
language:
Pascal (fpc 3.0.4)
created:
16 hours 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!