Grave +2
Sveiki, gal galite padeti su siuo uzdaviniu, nes kai pats sprendziu gaunu atsakyma 12, o kompiuteris raso, kad 9. Aciu labai smile
funkcion p(n:integer):integer;
var f, i, j, k, s:integer;
begin
s := 0; f :=1;
for i := 1 to n do
begin
f := f * i; k :=1;
for j := 1 to 2 do
k := k * i;
s := s + k * f;
end;
p := s
end;
Kokia bus kintamojo x reikšmė, jei x = p(a) ir a = 2 ?