[Source] Fibonacci em Pascal

Postagem de conteúdo sobre programação pascal e delphi
Post Reply
User avatar
WhiteHat
Membro
Membro
Posts: 30
Joined: Tue Feb 06, 2018 10:40 pm

[Source] Fibonacci em Pascal

Post by WhiteHat » Wed Feb 07, 2018 4:52 pm

Code: Select all

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.



Post Reply

Return to “Pascal / Delphi”