ВЕЖБИ  ЗА  Функции

1. ДСПКШ кој пресметува и печати збир на сите броеви од 1 до N.

Решение

program vtor;

function zbir(m:integer):integer;
    var i,zb:integer;
    begin
    zb:=0;
    for i:=1 to m do
        zb:=zb+i;
    zbir:=zb;
end;

var n,sum:integer;
begin
    writeln('Vnesete go N');
    readln(n);
    sum:=zbir(n);
    writeln(sum);
end.

2. ДСПКШ кој пресметува и печати факториел на бројот N

Решение

program tret;
    var n,rez:integer;

function fakt(m:integer):integer;
    var i,fkt:integer;
    begin
        fkt:=1;
        for i:=1 to m do
            fkt:=fkt*i;
        fakt:=fkt;
end;

begin

writeln('Vnesete go N');
readln(n);
rez:=fakt(n);
writeln(rez);
end.