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 5320KB
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/zMIZwH
language:
Pascal (fpc 3.0.4)
created:
2 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!