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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

For I:=3 To K Do
Begin
C:=B;
B:=B+A;
A:=C
End;
GetValue:=B
End
End;
Procedure Run; {решение уравнения}
Var
M,N:Integer;
A,B:Integer;
T:Boolean; {флаг разрешимости уравнения: true-если
решение есть}
Begin
Assign(F,'Output.txt');ReWrite(F);
A:=GetValue(X);
B:=GetValue(X-1);
T:=False;
For N:=1 To Y Do
For M:=0 To N Do
If A*N-B*M=Y Then
Begin
T:=True;
WriteLn(F,N,' ',M)
End;
If Not T Then WriteLn(F,'Задача не имеет решения!');

Страницы