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.
  18.  
Success #stdin #stdout 0.01s 5312KB
comments (?)
stdin
copy 
10
stdout
copy 
ВВЕДІТЬ N: ПОТОЧНЕ ЗНАЧЕННЯ I = 2 S = 2
ПОТОЧНЕ ЗНАЧЕННЯ I = 4 S = 6
ПОТОЧНЕ ЗНАЧЕННЯ I = 6 S = 12
ПОТОЧНЕ ЗНАЧЕННЯ I = 8 S = 20
ПОТОЧНЕ ЗНАЧЕННЯ I = 10 S = 30
ФІНАЛЬНИЙ РЕЗУЛЬТАТ СУМА S = 30
https://ideone.com/cFO7ZV
language:
Pascal (fpc 3.0.4)
created:
1 day 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!