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