9.5.20. Naći količnik suma brojeva od 1 do n1 i sume brojeva od 1 do n2 za 5 parova brojeva.

Listing programa:

PROGRAM suma_kolicnik01;
{Naci kolocnik suma brojeva od 1 do n1 i sume brojeva od 1 do n2 za 5 parova brojeva}
USES
  WinCrt;
Var
  i : Integer;
  n1, n2, s1, s2: Integer;
  kolicnik : Real;

FUNCTION Suma (n: Integer) :Integer;  {funkcija}
Var
  j, S : Integer;
BEGIN
  S := 0;
  FOR j := 1 TO n DO
    BEGIN
       S := S + j;
    END;
  Suma := S;
END;

BEGIN    {Glavni program}
  FOR i := 1 TO 5 DO
    BEGIN
      Write('Do prvog broja ');
      Readln(n1);
      Write('Do drugog broja ');
      Readln(n2);
      S1 := Suma(n1);
      S2 := Suma(n2);
      kolicnik := S1 / S2;
      Writeln (' Suma 1: ', S1, ' Suma2: ', S2, '  Kolicnik: ', kolicnik);
    END;
  END.

Izvođenje programa:

Index