Question

Scrie un program utilizand un subprogram recursiv care calculeaza suma S(n)=2+4+6+8...+2n (Pascal)

Answer 1

Răspuns:

program suma;

var a,b,c,d,e,s:integer;

write<"a=2">;read<a>;

write<"a=4">;read<b>;

write<"a=6">;read<c>;

write<"a=8">;read<d>:

write<"e=2n">;

S : =a+b+c+d+e;

write<"Suma este:",S>;

end

(nu stiu sigur daca e bine cu e=2n, mai ai o varianta) (nu stiu cat de bine este facuta, deoarece eu nu am mai facut pascal, eu fac java,html,python,pawn)

program suma;

var a,b,c,d,e,s:integer;

write<"a=2">;read<a>;

write<"a=4">;read<b>;

write<"a=6">;read<c>;

write<"a=8">;read<d>:

write<"e=s=x2">;

S : =a+b+c+d+e

write<"Suma este:", S>;

end