fork(1) download
copy 
  1. {program wczytuje 2 liczby liczy sume wyrazów miedzy nimi i dzieli przez ilosc tych wyrazów
  2. np. l1=3 l2=6 to (3+4+5+6)/4}
  3.  
  4. program Untitled;
  5. var
  6.     liczba1 : integer;
  7.     liczba2 : integer;
  8.  
  9. function dz(liczba1, liczba2 : integer) : real;
  10. var
  11.     i, suma, tmp: integer;
  12. begin
  13.     suma := 0;
  14.     { zapewnienie ze liczba1 < liczba2 }
  15.     if liczba1 > liczba2 then
  16.     begin
  17.         tmp := liczba1;
  18.         liczba1 := liczba2;
  19.         liczba2 := tmp;
  20.     end;
  21.  
  22.     for i := liczba1 to liczba2 do
  23.     begin
  24.         suma := suma + i;
  25.     end;
  26.  
  27.     dz := suma / (liczba2 - liczba1);
  28. end;
  29.  
  30. begin
  31.     write('podaj pierwsza liczbe: ');
  32.     readln(liczba1);
  33.     write('podaj druga liczbe: ');
  34.     readln(liczba2);
  35.     write(dz(liczba1, liczba2));
  36.     readln;
  37. end.
  38.  
Success #stdin #stdout 0.02s 208KB
comments (?)
stdin
copy 
10
5
stdout
copy 
podaj pierwsza liczbe: podaj druga liczbe:  9.000000000000000E+000
https://ideone.com/1HFGW3
language:
Pascal (fpc 3.0.4)
created:
11 years 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!