//Faça algoritmo para escrever a série de Fibonacci = (0,1,1,2,3,5,8,13,21,34,?) enquanto o termo
//a ser impresso for menor que 5000.
Program fibonacci ;
Var n1,n2,n3: integer;
Begin
n1 := 0;
n2 := n1+1;
n3 := n1+n2;
while (n1 < 5000) do
begin
writeln (n1);
writeln (n2);
begin
if (n3 < 5000) then
writeln (n3);
end;
n1 := n3+n2;
n2 := n1+n3;
n3 := n2+n1;
end;
readln;
End.
Nenhum comentário:
Postar um comentário