fork download
copy 
  1. program SumaRepeat;
  2. var
  3.   m, n, i, suma: Integer;
  4. begin
  5.   Write('Podaj m: ');
  6.   ReadLn(m);
  7.   Write('Podaj n: ');
  8.   ReadLn(n);
  9.  
  10.   suma := 0;
  11.   i := m;
  12.   repeat
  13.     suma := suma + i;
  14.     i := i + 1;
  15.   until i > n;
  16.  
  17.   WriteLn('Suma (REPEAT-UNTIL): ', suma);
  18. end.
  19.  
Success #stdin #stdout 0s 5276KB
comments (?)
stdin
copy 
5
15
stdout
copy 
Podaj m: Podaj n: Suma (REPEAT-UNTIL): 110
https://ideone.com/tZdKYn
language:
Pascal (fpc 3.0.4)
created:
7 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!