Napisati program sa funkcijom za izračunavanje sume kvadrata brojeva od a do b.

Listing programa:

PROGRAM P09311041;
VAR
 a,b:integer;
 s:real;
FUNCTION skv(a,b:integer):real;
VAR
  i:integer;
  s:real;
BEGIN
  s:=0;
  for i:=a to b do
  s:=s+sqr(i);
  skv:=s;
END;
BEGIN
  write('a,b=');
  readln(a,b);
  s:=skv(a,b);
  writeln('s=',s);
  READLN;
END.

Ispis na ekranu:
a,b=2 5
s= 5.400000000000000E+001

Index