Спасибо еще раз. Разобралась я в задаче. Теперь всё правильно.
Вчера вечером сидела голову ломала еще над одной задачей. Рекуррентные соотношения. Вроде простая задача, но что-то опять не правильно.
На каждом следующем дне рождения Винни Пух съедает столько же меда, что и на двух предыдущих. На двух первых днях рождения у Пяточка и у Кролика он съел по 100 г меда. Написать программу, определяющую, сколько килограммов меда съест Винни Пух на N-ом дне рождения.
Формат входных данных
Во входном файле задано единственное число N (1 \le N \le 40).
Формат выходных данных
Выведите, сколько килограммов меда съест Винни Пух на этот день рождения с точностью до одного знака после десятичной точки.
Примеры:
Вход
1
Выход
0.1
Вход
4
Выход
0.3
Вот мое решение.
var a, b, c, k:real;
n,d:integer;
f,g:text;
Begin
assign(f,'input.txt');
assign(g,'output.txt');
reset(f);
rewrite(g);
readln(f,n);
a:=0.1; b:=0.1;
for d:=3 to n do
Begin
c:=a+b;
a:=b;
b:=c
end;
k:=c;
writeln (g, k);
close(f);
close(g);
End.