fork download 
  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 5224KB
comments ()
stdin 
20
stdout 
Введіть N: Поточне значення I=2 S=2
Поточне значення I=4 S=6
Поточне значення I=6 S=12
Поточне значення I=8 S=20
Поточне значення I=10 S=30
Поточне значення I=12 S=42
Поточне значення I=14 S=56
Поточне значення I=16 S=72
Поточне значення I=18 S=90
Поточне значення I=20 S=110
Фінальний результат сума S=110
https://ideone.com/HGM9lI
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!