Олимпиадные задачи по программированию. Лучшие решения. Часть 1. Ускова О.Ф - 37 стр.

UptoLike

Составители:

Рубрика:

A(K)>=A(K-2), для K>2,

а значит и

M<=N<=Y. (**)

3. Программная реализация.

Программная реализация сводится к нахождению

целочисленного решения уравнения (*) при условии выполнения

(**). Программа находит все возможные варианты ответа или

выдает сообщение о том , что решения нет.

Program Money;

Var

F:Text;

X,Y:Integer;

Procedure Init; {ввод из файла }

Begin

Assign(F,'Input.txt');ReSet(F);

ReadLn(F,X,Y);

Close(F)

End;

Function GetValue(K:Integer):Integer; {получение F(k)}

Var I,A,B,C:Integer;

Begin

If K<=2 Then GetValue:=1

Else

Begin

A:=1;B:=1;