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.
ALGORITMOS E IMPLEMENTAÇÕES ⇒ Código fonte Fibonacci Pascal
-
pensadornato
- Mensagens: 124
- Registrado em: 22 Jun 2016, 22:06
- Última visita: 13-07-20
- Localização: Jaraguá do sul/SC
- Agradeceu: 31 vezes
- Agradeceram: 23 vezes
Mai 2018
19
16:46
Código fonte Fibonacci Pascal
O homem não é nada sem o ser e o agir,o ser é o que tu é,e o agir é sua atitude.
-
- Tópicos Semelhantes
- Resp.
- Exibições
- Últ. msg
-
- 0 Resp.
- 1346 Exibições
-
Últ. msg por pensadornato
-
- 0 Resp.
- 1345 Exibições
-
Últ. msg por pensadornato
-
- 0 Resp.
- 1265 Exibições
-
Últ. msg por pensadornato
-
- 0 Resp.
- 1524 Exibições
-
Últ. msg por pensadornato
-
- 0 Resp.
- 1368 Exibições
-
Últ. msg por pensadornato