Advertisement
Guest User

Untitled

a guest
Mar 28th, 2015
207
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.39 KB | None | 0 0
  1. program Project1;
  2.     var d,i,b,n,c,a,j:LongInt;
  3. begin
  4.   ReadLn(d);
  5.   for i:=1 to d do
  6.   begin
  7.     ReadLn(n);
  8.     a:=1;
  9.     b:=1;
  10.     if n=1 then WriteLn('1')
  11.     else
  12.         if n=2 then WriteLn('1')
  13.         else
  14.       begin
  15.         for j:=3 to n do
  16.         begin
  17.           c:=a+b;
  18.           a:=b;
  19.           b:=c;
  20.         end;
  21.         WriteLn(c);
  22.       end;
  23.   end;
  24.   ReadLn;
  25. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement