Código: Selecionar todos
program Fibonacci;
uses crt;
var intA,intB,intProx,intCont:integer;
begin
clrscr;
intA:=0;
intB:=1;
for intCont:=1 to 15 do
begin
intProx:=intA+intB;
Writeln(intProx);
intA:=intB;
intB:=intProx;
end;
readln;
end.
Moderador: [ Moderadores TTB ]
Código: Selecionar todos
program Fibonacci;
uses crt;
var intA,intB,intProx,intCont:integer;
begin
clrscr;
intA:=0;
intB:=1;
for intCont:=1 to 15 do
begin
intProx:=intA+intB;
Writeln(intProx);
intA:=intB;
intB:=intProx;
end;
readln;
end.