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.
