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 5288KB
comments (?)
stdin
copy 
4
stdout
copy 
ВВЕДІТЬ N: ПОТОЧНЕ ЗНАЧЕННЯ I=2 S=2
ПОТОЧНЕ ЗНАЧЕННЯ I=4 S=6
ФІНАЛЬНИЙ РЕЗУЛЬТАТ СУМА S=6
https://ideone.com/XnDjfe
language:
Pascal (fpc 3.0.4)
created:
5 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!