Dennnhhhickk

Untitled

Sep 30th, 2016
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.66 KB | None | 0 0
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. const
  9. MAXIN = 100000;
  10.  
  11. var
  12. n, m, s, min , i, j, mini, minj: integer;
  13. a: array [1..MAXIN] of integer;
  14.  
  15. function fib(n: integer): integer;
  16. var
  17. i, sum: integer;
  18. begin
  19. sum := 0;
  20. for i := 3 to n do
  21. a[i] := a[i - 1] + a[i - 2];
  22. fib := a[n];
  23. end;
  24.  
  25. begin
  26.  
  27. readln(m, n);
  28.  
  29. for i := 1 to n do
  30. begin
  31. a[1] := i;
  32. for j := i + 1 to n do
  33. begin
  34. a[2] := j;
  35. if (fib(m) = n) and (a[1] > a[2]) then
  36. begin
  37. writeln(a[1], ' ', a[2]);
  38. //readln;
  39. //readln;
  40. //exit;
  41. end;
  42. end;
  43. end;
  44.  
  45. readln;
  46. readln;
  47. end.
Advertisement
Add Comment
Please, Sign In to add comment