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 0.01s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
ВВЕДІТЬ N: ФІНАЛЬНИЙ РЕЗУЛЬТАТ СУМА S = 0
https://ideone.com/VqpN1i
language:
Pascal (fpc 3.0.4)
created:
6 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!