eMatematikas Prisijunk Forumas VBE užduotys ONLINE testai

funkcijos uzdavinio sprendimas


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 ?

Antrasis FOR ciklas prasukamas tik su pirma po jo einancia eilute, todel pirma karta S=1, paskui pridedam dar 8. 12 butu,jei po antro FOR dvi sekancios eilutes butu uzdarytos i BEGIN ir END :)

Nori sudalyvauti šioje temoje ir parašyti savo pranešimą? Prisijungti »