Question

Să se calculeze suma primilor n (n ≤ 100) termeni din următorul şir: 1, 3, 5, 11, 21, 43,
85, …

Answer 1

Program Suma;
var x, y, n, z, o, s: integer;
begin
writeln ('Introduceti n:');
readln (n);
y:=1;
for z:=1 to n do
    begin
o:=x+x+y;
x:=y;
y:=o;
s:=s+o;
     end;
writeln ('Suma=', s);
readln;
end.

idee n-am de ce se da conditia x mai mic sau egal cu 100, urmatorul program respecta si aceasta conditie

Program Suma;
 var x, y, n, z, o, s: integer;
begin
writeln ('Introduceti n:');
readln (n);
y:=1;
for z:=1 to n do begin
o:=x+x+y;
x:=y;
y:=o;
s:=s+o;
end;
   if n<101 then writeln ('Suma=', s) else writeln ('Ati depasit valoarea maxima admisibila');
readln;
 end.