fork download
copy 
  1. program Lab01_01;
  2. var
  3.   s, i, n : integer;
  4. begin
  5.   write('ВВЕДІТЬ N: ');
  6.   readln(n);
  7.  
  8.   s := 0;
  9.   for i := 1 to n do
  10.   begin
  11.     if i mod 2 = 0 then
  12.     begin
  13.       s := s + i;
  14.       writeln('ПОТОЧНЕ ЗНАЧЕННЯ I=', i, ' S=', s);
  15.     end;
  16.   end;
  17.  
  18.   writeln('ФІНАЛЬНИЙ РЕЗУЛЬТАТ СУМА S=', s);
  19. end.
Success #stdin #stdout 0s 5280KB
comments (?)
stdin
copy 
145
stdout
copy 
ВВЕДІТЬ 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
ПОТОЧНЕ ЗНАЧЕННЯ I=22 S=132
ПОТОЧНЕ ЗНАЧЕННЯ I=24 S=156
ПОТОЧНЕ ЗНАЧЕННЯ I=26 S=182
ПОТОЧНЕ ЗНАЧЕННЯ I=28 S=210
ПОТОЧНЕ ЗНАЧЕННЯ I=30 S=240
ПОТОЧНЕ ЗНАЧЕННЯ I=32 S=272
ПОТОЧНЕ ЗНАЧЕННЯ I=34 S=306
ПОТОЧНЕ ЗНАЧЕННЯ I=36 S=342
ПОТОЧНЕ ЗНАЧЕННЯ I=38 S=380
ПОТОЧНЕ ЗНАЧЕННЯ I=40 S=420
ПОТОЧНЕ ЗНАЧЕННЯ I=42 S=462
ПОТОЧНЕ ЗНАЧЕННЯ I=44 S=506
ПОТОЧНЕ ЗНАЧЕННЯ I=46 S=552
ПОТОЧНЕ ЗНАЧЕННЯ I=48 S=600
ПОТОЧНЕ ЗНАЧЕННЯ I=50 S=650
ПОТОЧНЕ ЗНАЧЕННЯ I=52 S=702
ПОТОЧНЕ ЗНАЧЕННЯ I=54 S=756
ПОТОЧНЕ ЗНАЧЕННЯ I=56 S=812
ПОТОЧНЕ ЗНАЧЕННЯ I=58 S=870
ПОТОЧНЕ ЗНАЧЕННЯ I=60 S=930
ПОТОЧНЕ ЗНАЧЕННЯ I=62 S=992
ПОТОЧНЕ ЗНАЧЕННЯ I=64 S=1056
ПОТОЧНЕ ЗНАЧЕННЯ I=66 S=1122
ПОТОЧНЕ ЗНАЧЕННЯ I=68 S=1190
ПОТОЧНЕ ЗНАЧЕННЯ I=70 S=1260
ПОТОЧНЕ ЗНАЧЕННЯ I=72 S=1332
ПОТОЧНЕ ЗНАЧЕННЯ I=74 S=1406
ПОТОЧНЕ ЗНАЧЕННЯ I=76 S=1482
ПОТОЧНЕ ЗНАЧЕННЯ I=78 S=1560
ПОТОЧНЕ ЗНАЧЕННЯ I=80 S=1640
ПОТОЧНЕ ЗНАЧЕННЯ I=82 S=1722
ПОТОЧНЕ ЗНАЧЕННЯ I=84 S=1806
ПОТОЧНЕ ЗНАЧЕННЯ I=86 S=1892
ПОТОЧНЕ ЗНАЧЕННЯ I=88 S=1980
ПОТОЧНЕ ЗНАЧЕННЯ I=90 S=2070
ПОТОЧНЕ ЗНАЧЕННЯ I=92 S=2162
ПОТОЧНЕ ЗНАЧЕННЯ I=94 S=2256
ПОТОЧНЕ ЗНАЧЕННЯ I=96 S=2352
ПОТОЧНЕ ЗНАЧЕННЯ I=98 S=2450
ПОТОЧНЕ ЗНАЧЕННЯ I=100 S=2550
ПОТОЧНЕ ЗНАЧЕННЯ I=102 S=2652
ПОТОЧНЕ ЗНАЧЕННЯ I=104 S=2756
ПОТОЧНЕ ЗНАЧЕННЯ I=106 S=2862
ПОТОЧНЕ ЗНАЧЕННЯ I=108 S=2970
ПОТОЧНЕ ЗНАЧЕННЯ I=110 S=3080
ПОТОЧНЕ ЗНАЧЕННЯ I=112 S=3192
ПОТОЧНЕ ЗНАЧЕННЯ I=114 S=3306
ПОТОЧНЕ ЗНАЧЕННЯ I=116 S=3422
ПОТОЧНЕ ЗНАЧЕННЯ I=118 S=3540
ПОТОЧНЕ ЗНАЧЕННЯ I=120 S=3660
ПОТОЧНЕ ЗНАЧЕННЯ I=122 S=3782
ПОТОЧНЕ ЗНАЧЕННЯ I=124 S=3906
ПОТОЧНЕ ЗНАЧЕННЯ I=126 S=4032
ПОТОЧНЕ ЗНАЧЕННЯ I=128 S=4160
ПОТОЧНЕ ЗНАЧЕННЯ I=130 S=4290
ПОТОЧНЕ ЗНАЧЕННЯ I=132 S=4422
ПОТОЧНЕ ЗНАЧЕННЯ I=134 S=4556
ПОТОЧНЕ ЗНАЧЕННЯ I=136 S=4692
ПОТОЧНЕ ЗНАЧЕННЯ I=138 S=4830
ПОТОЧНЕ ЗНАЧЕННЯ I=140 S=4970
ПОТОЧНЕ ЗНАЧЕННЯ I=142 S=5112
ПОТОЧНЕ ЗНАЧЕННЯ I=144 S=5256
ФІНАЛЬНИЙ РЕЗУЛЬТАТ СУМА S=5256
https://ideone.com/UXDbSv
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!