Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project2;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- const
- MAXIN = 100000;
- var
- n, m, s, min , i, j, mini, minj: integer;
- a: array [1..MAXIN] of integer;
- function fib(n: integer): integer;
- var
- i, sum: integer;
- begin
- sum := 0;
- for i := 3 to n do
- a[i] := a[i - 1] + a[i - 2];
- fib := a[n];
- end;
- begin
- readln(m, n);
- for i := 1 to n do
- begin
- a[1] := i;
- for j := i + 1 to n do
- begin
- a[2] := j;
- if (fib(m) = n) and (a[1] > a[2]) then
- begin
- writeln(a[1], ' ', a[2]);
- //readln;
- //readln;
- //exit;
- end;
- end;
- end;
- readln;
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment