Napisati program sa procedurom za izračunavanje sume parnih i sume kvadrata neparnih brojeva od k do n.

Listing programa:

PROGRAM suma_parnih_suma_kvadrata_nepar;
VAR
  k, n: Integer;
  s1, s2 :Real;

PROCEDURE Spar_i_skvnepar;
VAR
  i : Integer;
BEGIN
  s1 := 0;
  s2 := 0;
  FOR i := k TO n DO
    IF i MOD 2 = 0 THEN
      s1 := s1 +  i
    ELSE
      s2 := s2 +  sqr(i);
END;

BEGIN       {MAIN}
  Writeln ('Sume prirodnih i suma kvadrata ');
  Write('k  n ');
  Readln(k, n);
  Spar_i_skvnepar;
  writeln('Suma prirodnih =  ', s1, ' Suma kvadrata ', s2);
  READLN;
END.

Ispis na ekranu:
Sume prirodnih i suma kvadrata 
k  n 2 6
Suma prirodnih =   1.2000000000000000E+001 Suma kvadrata  3.4000000000000000E+001

Index