Уважаемые коллеги! Прошла олимпиада по информатике, организованное Институтом развития образования Республики Татарстан.

Предлагаю поделиться решениями заданий. Еще лучше методикой. Я предлагаю программу  задания на числа Фибоначи. Жду Ваши ответы через ОБРАТНУЮ СВЯЗЬ ИЛИ ГОСТЕВУЮ КНИГУ.

var f , f1 , f2 n: longint;

begin

ass ign<input , ‘input.txt’> ;

reset<input> ;

ass ign <output, ‘output.txt’> ;

rewrite <output> ;

readln<n> ;

f1: =1 ;

f2 : =1;

while f< >n do

begin

f : =f1+f2;

f1 : = f2;

f2 : = f ;

end;

write<f1> ;

write<f1 + f2 : 4> ;

c lose <input> ;

с lose <output> ;

end.