fork download
copy 
  1. program SumaWhile;
  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.   while i <= n do
  13.   begin
  14.     suma := suma + i;
  15.     i := i + 1;
  16.   end;
  17.  
  18.   WriteLn('Suma (WHILE): ', suma);
  19. end.
  20.  
Success #stdin #stdout 0s 5284KB
comments (?)
stdin
copy 
5
15
stdout
copy 
Podaj m: Podaj n: Suma (WHILE): 110
https://ideone.com/utCvVA
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!