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

Listing programa:

PROGRAM  P09311041;
USES
  WinCrt;
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);
END.

Index