На каждом следующем дне рождения Винни Пух съедает столько же меда, что и на двух предыдущих. На двух первых днях рождения у Пяточка и у Кролика он съел по 100 г меда. Написать программу, определяющую, сколько килограммов меда съест Винни Пух на - ом дне рождения.

Формат входных данных

Во входном файле задано единственное число (1 до 40).

Формат выходных данных

Выведите, сколько килограммов меда съест Винни Пух на этот день рождения с точностью до одного знака после десятичной точки.

Question

Информатика

Торя

14 июля, 22:57

На каждом следующем дне рождения Винни Пух съедает столько же меда, что и на двух предыдущих. На двух первых днях рождения у Пяточка и у Кролика он съел по 100 г меда. Написать программу, определяющую, сколько килограммов меда съест Винни Пух на - ом дне рождения.

Формат входных данных

Во входном файле задано единственное число (1 до 40).

Формат выходных данных

Выведите, сколько килограммов меда съест Винни Пух на этот день рождения с точностью до одного знака после десятичной точки.

+1

Ответы (1)

Знаете ответ на вопрос?

Потап · Answer 1

Var

n, a, b, c, c2, i:integer;

Begin

Write ('Введите число ') ;

Readln (n) ;

a:=100;

b:=100;

for i: = 1 to n do Begin

c:=a+b; a:=b; b:=c;

End;

c2:=c div 1000;

write (c2,'.') ;

c:=c div 100 mod 10;

write (c,' кг съел Винни') ;

End.